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6 PORT COUNTERS 

72 FPCSMRESET, RESET REMOTE PORT/SYSTEM 
P3¢ FPCSMSTART, SEND START TO REMOTE 

75 SYSTEM 

808 oP _vCcs SEND SHUTDOWN ON ALL VCS 
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FACILITY: 
VAX/VMS EXECUTIVE, 1/0 DRIVERS 


ABSTRACT: SCS ROUTINES AVAILABLE TO FORK PROCESSES WHICH 
ARE CI PORT-SPECIFIC. 
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i944 ; AUTHOR: N. KRONENBERG, MAY 1981 
444 3; MODIFIED BY: 
0000 s v04-001 vagy N. Kronenberg 9-Sep-1984 
0000 : Geen deallocation of a message buffer thet results 
0000 5 in the decision to extend more credis. oyeees call 
0000 : to SCSS$REQ ~SCSSEND to extend credit if CDOT state 
| 9000 ; shows thatthe SYSAP has done a DISCONNECT. (Formerly 
00 ; the ScSsrea. tOESSEND call was eypepees iff the “+ was 
0000 3 actually queued for SCS sending alread Y- This 
0000 5 incorrect since it would allow a credit to be "eunandad 
0000 : aren the DISCONNECT_REQUEST was sent.) 
0000 : RSPID mismatch on completion of a block transfer 
000 3 (RD_SEQ_ERR) corrected to back msg pointer up by 
si : PPD"header length prior to crashing port. 
444 3 v03-025 NPK3054 Kronenberg 24-Jun-1984 
000 : nee SCSSREQ _SCSSEND will now ensure that a CDT 
000 ; will not be queued ". the SCS send buffer wait queue 
000 ; if it is already waiti ng change DISCONNECT from the 
000 : open state not to check for this condition. The 
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4 
4 
check is being moved to SCS$REQ_SCSSEND because there 
were several other conditions that required the check 
that were not making it and that could corrupt the 
wait queue. 


V03-024 NPK3047 N. Kronenberg 22-Mar-1984 
Add FPC$STOP_VCS entry to send host shutdowns to 
to all vcs on shutdown or bugcheck. 


V03-023 NPK3048 N. Srosnnery 16-Mar-1984 
Fix FPCSSNDCNTMSG to set retflag=true by putting 
1 in RO instead of SYSAPS$C_DISPPO. 


V03-022 NPK3046 N. Rrenenbers 
Improve comments for FPCSREADCOUNT. 


v03-021 TMKO002 Todd M. Katz 21-Feb-1984 
Change FPCSINITIAL so that the buffer descriptors are allocated 
by calling EXESALONONPAGED instead of INISHIPALC. This can b 
done because this routine is now being called at fork IPL 
instead of at IPL$_POWER. 


v03-020 TMK0001 Todd M. Katz 29-Jan-1984 
Fix an error path for the MRESET and MSTART fork process — 
calls. In both cases when the operope sete PPD action routine 
returns an error, the error path that is taken does a PUSHR of 
RO (instead of a PUSHL) to save the return status over the 
datagram buffer deallocation. This PUSHR results in the stack 
being corrupted in a variety of interesting fashions depending 
upon the error code that is residing in RO. 


V03-019 NPK3039 N. Kronenberg 11-Jan-1984 
On receipt of DATREC, CNFREC return the response ms 
to pool unconditional Ly. Previously it was returne 
to the msg free queue if that queve was not up to 
the initial receive credit and this could cause credits 
to build without bound. 
Fix RD_SEQ_ERR and SC_SEG_ERR to first look up the 
PB (if-any) associated with the response in hand, and 
then branch to INTS$S/RSP_CRASH_PORT which expects R1 
to have the PB address or 0 if no PB. 
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Fix stepping count of number of bytes mapped to add 
from byte count pointed to by R1 rather than IRP. 


v03-015 NPK3029 N. Kronenberg 14-Jul-1983 
Enhancements for V4.0. 
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100 v03-018 NPK3037 N. Kronenberg 11-Nov-1983 
101 Add S$DEBUGCHECK on block xfer XCTID sequence number 
1 ¢ error and source conid sequence number error. 
1 Fix source connection id check to not delete a sent 
: : message twice. 
1 $ v05-017 NPK3036 N. Kronenberg 21-0 t-1983 
: Correct bug in stack management in FPCSMSTART. 
! ; V03-016 NPK3034 N. Kronenberg 13-Sep-1983 
: 1 
113 
114 


oS 
o 


<v 


SOOCSCSCSCOCOSCOOSOSOSOSOOSOOSOOSOOOOSOOOSOOOOOCOOOOSCOOO 
SSSSSSSSSSSSSSSSSssssssssssssssssss 
pee ee wl oleae lolol ololeolololelolelololeolelolelo! sleloleloleololola) 


So 


COOCOCCOCOCOOOOOSCOOCCOSOOSOSOSOOOSOOOSOOOOOOOOOOOOOOCSoO 


Se Se Se Se Se Be Se Se Ge Be Se Ge Ge Ge Ge Ge Ge Fe Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Gi Se Ge Ge Se Ge Se Se Se Se Se Ge 


et ek a a a et = = = 4 3 8 3 = 1 FS SS SS os Ss SS SS SS SS SS SS 2 2s 


SSOSSSS Soo Soe SsSsSSsssss 
ooo SOOoOooooooooooooo 
SSSSSSSSSSSESSSSSSSSSS 


16-SEP-1984 01:10:45 VAX/VMS Macro Vv04-00 Pa 
18-SEP-1984 1:15:44 (CORIVER.SRCJPAFPCALL MAR; 2 ve 


Set local/remote process names in scs msg attached to 

COT when connect is issued rather than waiting for accept. 
Add per connection performance counters. 

Correct benign bug in msg deallocation in deciding 
whether to return bus ter to pool or free queue. 

In FPCSSNDCNTMSG with no rspid decide if port should 

put sent buffer on free queue before sending it. 

Add new entry Feysenonee to send a dg without a CDRP. 


Remove NPK since it is taken care of by zeroing 
CORPSL_MSG_BUF at the time the block xfer is started. 

v03-014 NPK3026 N. Kronenberg 18-May-1983 
Fix FPCSREC_CNFREC/DATREC to zero CDRPSL_MSG_BUF. 
NPK3025 N. Kronenberg 18-May-1983 
Fix the fix to insufficient memory on ACCEPT call. 

v03-013 KTA3046 Kerbey T. Altmann 28-Mar-1983 
Redo for SCS/PPD split. 

V03-012 NPK3017 N. Kronenberg 28-F eb-1983 
Fix RO destroyed on READ counters busy. 

V03-011 NPK3016 N. Kronenberg 28-F eb-1983 
Fix insufficient dg/msg buffers on ACCEPT call. 

v03-010 NPK3010 N. Kronenberg 11-Nov-1982 
Invoke $SYSAPDEF. Add d otseeset flag value assumes. 
Fix insfmem path in FPCSMSTART. 

v03-009 NPK3009 — N. Kronenbers 2-Nov~1982 
Zero application dg credit field. 

v03-008 NPK3008 N. Kronenber 6-0c t-1982 


0 
Change disconnect on CDT in Yitegat state to crash 
the VC instead of returning error status to caller 

and doing nothing. Change disconnect on CDT in. 
disc_ack state to crash VC instead of simple unilateral 
break of connection. 


v03-007 NPK3007 N. Kronenberg 5-0c t-1982 
Fixed bug in MAP which incorrectly saved the context 
of multiple buffer descriptor waiters. 


v03-006 NPK3006 N. Krenenbers 9-Sep-1982 
Fixed bug in waiting for buffer descriptor. 


v03-005 KOM0002 Kathleen D. Morse 28-Jun-1982 
Added S$DYNDEF, SDCDEF, SPRDEF, and SSSDEF. 


v03-004 NPK3002 N. Kronenberg 1-Jul-1982 
Fix ACCEPT to return correct status in RO on | 
insufficient memory and to preserve addr of Listen 
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; Set PSECT to driver code: 


173 
174 
14 
i 
0000 4 173 -PSECT $$$115_DRIVER,LONG 
00 181; 
B86 : ¢ : System definitions (LIB.MLB): 
184 
$006 185 enocross 
0000 186 SCOLDEF ; Connection descriptor List 
0000 187 SCORPDEF ; Class driver request packet format 
44 188 SCDTDEF : Connection descriptor format 
000 189 SCIBDDEF ; Cl buffer descriptor format 
0000 86190 SCIBOTDEF ; Cl buffer desc table format 
0000 191 $C IBHANDEF : Cl buffer handle format 
| 0000 133 SDYNDEF : Dynamic block codes 
0000 19 SIRPDEF : Define IRP offsets and bits 
4444 194 SPBDEF 3; Path Block format 
000 195 SPDTDEF :; Port descriptor format 
0000 196 SPROEF ; Define processor register definitions 
0000 197 SRODEF ; Response descriptor format 
0000 198 SROTDEF ; Response descriptor List 
0000 199 SSCSDEF ; SCS message format 
0000 200 SSSDEF ; System-wide status codes 
0000 201 SSYSAPDEF ; Send/recv dg flags 
0000 202 cross 
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UNIMPLEMENTED FORK PROCESS CALLS 


4 -SBTTL UNIMPLEMENTED FORK PROCESS CALLS 


§ FPCSMAINTFCN:: 
3 } MOVZWL #SS$_ILLIOFUNC,RO 
0 RSB 


; Set error status for caller 
; Return to caller 
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»SBTTL CONNECTION MANAGEMENT CALLS 
-SBTTL = FPCSCONNECT, COMPLETE PROCESSING A CONNECT 


This routine is JMP'ed to from SCSSCONNECT with a CDT allocated 


; Cand in the closed +e and initialized with the SYSAP 
; connect parameters or 

; does port-specific proressing: allocates SCS control message 
; receive buffer, initial credit w 

; and initial datagram buffers. FPCSCONNECT then sets the CDT 


s 
s for fields not yet used. FPCSCONNECT 
orth of receive message buffers, 
state to connect sent and queves the CDT to send a CONNECT_REQ 


; pessage to the remote system. Finally, FPCSCONNECT suspends the 


Inputs: 


R3 “Addr of CDT 
R4 “Addr of PDT 


CDT initialized as follows: 


CDOT$L_LCONID “Local conid 
MSGINPUT “Addr to call in SYSAP for rec'd msgs 
DGINPUT “Addr to call in SYSAP for rec'd H 
ERRADDR “Addr to call in SYSAP for connection errors 
RSTATION “Remote station addr 
POT “Addr of PDT 
MINSEND “Minimum send credit req'é by SYSAP 
INITLREC “Initial credit extended by tySaP 
DGREC “Initial # of dg's queued 
STATE -CLOS 
PB -Addr of selected PB to remote system 
WAITQFL/BL “Set to show no entries 
RPROCNAM “Addr of dest process name 
LPROCNAM “Addr of local process name 
CONDAT “Addr of connect data 
other CDT fields -0 
(SP) “Return PC in SYSAP 
Outputs: 
RO “Status: SS$_NORMAL, SS$_FAILRSP, 
SS$_REJECT, SSS$_INSFMEM 
R1 ~heject reason or fail response reason 
if RO = REJECT or FAILRSP 


“Addr of ACCEPT_REQ if RO = success 


R2 
other registers -Preserved 


~-ENABL LSB 


FPCSCONNECT:: 


SCHK_CDTSTATE - i; Verify that COT state 


‘ 
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0006 68 CLOSED,-=- ; is closed; if not, 
006 69 ERROR=STATE_ERR : caller made error 
ere * 30 OOOF 0 BSBW Bisset ALLBUF ; Allocate all buffers needed 
2 + ge 71 BLBC R EON REM Alt : Branch if failed 
32 CA DO 001 i MOVL COTSL_SCSMSG(R3) ,R2 ; Get addr of SCS receive buffer 
5 4A bP 019 7 MOVL CDTSL-LPROCNAM(RS) RO; Copy local process name 
04 Ag g° D 001D 74 MOVQ (RO)+7SCS$T_DST_PROC(R2) : into SCS recv buffer as destination 
OC A 9 7D 0021 275 MOVQ (RO) +,SCS$T-DST-PROC+8(R2) 
50 SOA po 025 76 MOVL COTSL_RPROCNAM(R3),RO  ; process and remote process name 
14 A280 D 88 9 77 MOVQ (RO)+7SCS$T_SRC_PROC(R2); @s source process. Allows SHOW 
1C Ao 80 «7D 002D 278 MOVQ  (RO)+,SCS$T~SRC~PROC +8 (Re) 
68 1 79 ; CLUSTER to report process names 
031 80 ; for incomplete connect cails 
50 1€¢ A3 00 0031 81 MOVL CDT$L_PB(R3) ,RO ; Get path block addr for CDT 
34 AO) 3600 =—(0035 He MOVL PBSL_CDTLST(RO),=- : Link this new CDT onto 
6C a3 0038 8 CDT$C_CDTLST(R3) : the head of the CDT List 
3400 5 DO OO03A 84 MOVL R3,PBSL_CDTLST(RO) 3; for this path 
07 B80 OO3E 285 MOVW #CDT$C_CON_SENT,- : Move CDT state to 
28 A3 0040 286 CDT$w_STATE(R3) 3 connect sent 
50 01 3 O0ee 287 MOVZWL #CDTS$T_CON_PEND,RO ; Get block state 
69 11 Bpe? soe BRB SCSSENDB ; Ask to send CONNECT_REQ & suspend 
0047 390 CON_MEM_FAIL: 
0047 91 
50 DD 0047 444 PUSHL RO ; Save error status 
0049 29 
0049 294 CON_MEM_FAIL1: 
0049 295 
00000000 ' GF 16 0049 296 JSB G*SCSSDEALL_CDT ; Deallocate CDT 
50 BEDO O04F 297 POPL RO ; Retreive status 
05 008 298 RSB ; Return error to SYSAP 
005 4, 
0053 00 .DSABL LSB 


os 
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"this routine is JMP'ed to by SCSSACCEPT ne ps allocates and jnits 
a CDOT on which the connection is to be 5 leted. FPCSACCEPT 
allocates the SCS receive buffer, — uffers, and datagram 
buffers the new connection will need and requests the -* Bs 
process to send an ACCEPT_REQ message to the remote —_— 

inally, the SYSAP is suspended until the ACCEPT_RSP is received. 


Inputs: 
Re “Addr of Listening COT 
& “Addr of accepting CDT 
R4 “Addr of PDT 


Listening CDT: 


COTSW_STATE -Connect received state 

COTS. SCSMSG “Addr of message buffer one CONNECT_REQ 
CD -Path Blk of connect request 

CDTSB~ _RSTATION “Remote station addr of connect req 

CDTSL_PDT -PDT of connect request 


Accepting CDT: “ALL fields zeroed exc et : 
MSGINPUT ,DGINPUT ,ERRADDR,MINSENT, 
- os and DGREC as specified 


YSAP 
PEonID. S176. TYPE, SUBTYP, WAITQFL 


and wAiTQ 
Outputs (upon resumption of SYSAP): 
RO “Status: SSS$_NORMAL, SSS$_INSFMEM 
R1 -Destroyed 
R2 : =Preserved if RO/SSS_INSFMEM; Else destroyed 
Other registers -Preserved 
Listening CDT: 
CDT$W_STATE “LISTEN state 
Accepting CDT: “ALL fields initialized 


Bete Se Se Se Se Se Se Ge Se Se Be Be Be Se Se Ge Oe Oe Be Be Se Se Se Se Se Ge Be Se Ge Se Se Se Se Ge Ge Ge Se Se Ge Se Se ‘> 


> CDT adjacency assumptions: 


ASSUME CDT$L_PB+4 EQ CDTSB_RSTATION 
-ENABL LSB 
FPCSACCEPT:: 
SCHK_CDTSTATE - : Verify that accepting CDT 
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05 59 CLOSED,=- ; state is closed; if not, 
05 60 ERROR=STATE_ERR ; _caller made error 
10 AS. 54 0 005 61 MOVL R4 ,COTSL_PDT(R3) i; Set PDT addr in accepting CDT 
1C A D 006 6¢ mova COTSL_PBTRE) .- : Copy from Listener CDT to accepting: 
1C A 006 6 CDTSL_PB(RS) ; PB addr, remote station, l.o., 
24 A2 BO 006 64 MOVW COTSB_RSTATION®4 (Re) ,- ; remote Station, h.o. 2 bytes 
GA 0068 65 CDOTSB_RSTATION+4 (R35) 3 
50 1C A2 DO 006A 66 MOVL CDTSL_PB(R2) ,RO ; Get path blk addr of connect 
006E 67 ; request that was saved in Listener 
34 “0 DO O06E 68 MOVL PBSL_CDTLST(RO) ,- ; Link the new CDT to the 
6C A 0071 369 CDTSC_CDTLST(R3S ; head of the CDT List 
34 Ad 2 dO ors 70 MOVL a PRSL_COTLST (RO) : _for this path 
50 DO 907 71 MOVL R2,R ; Save Listening CDOT addr temporarily 
52 sc A DO OO7A ie MOVL COTSL_SCSMSG(R2),R2 :; Get addr of CONNECT_REQ ms 
CAO D4 «(O07E 7 CLRL CDTSL_SCSMSG(RO) ; Zero Listener scs recv buffer addr 
FB A2 50 00 0081 74 MOVL RO,SCSSL_DST_CONID(R2) ; Save Listening CDT addr in msg 
50 DD 0085 75 PUSHL RO 3; _and save on stack also 
2C AS $$ DO 0087 76 MOVL R2,CDOTSL_SCSMSG(R3) ; Put msg addr in accepting CDT 
FF72" 30 0088 377 BSBW © SCSSCOPYTACCP ; Copy credit. RCONID info fron 
OO8E 378 ; _CONNECT_REQ to accepting CDT 
14 a DE OO8E 44 MOVAL SCSS$T_SRC teed ue ; Set addr of remote proc name 
50 A 0091 380 CDT$L-RPROCNAM(R3) : 
04 A2 DE 0093 381 MOVAL SCS$T_DST_PROC(R2),- : and local proc name in CDT 
54 AS 0096 HE CDTSL_LPROCNAM(R3) ; for later xmit of ACCEPT_REQ 
FF65° 0098 38 BSBw SCSSACL_ALLBUF 2 ; Allocate all msg and dg buffers 
52 8EDO0 0098 384 POPL R2 ; Retreive Listener CDT address 
08 50 OO9E 385 BLBS RO,10$ : Branch if got them 
50 DD OOA1 386 PUSHL RO ; Else save error status | 
FFSA® 30 QOA3S 387 BSBW SCSSDEAL_ SCSREC ; Deallocate extra SCS recv buffer 
FFAO 8 31 Boag $68 BRW CON_MEM_FAIL1 ; Clean up accepting CDT (status on stack) | 
OA BO OOA9 390 108: MOVW #COTSC_ACCP + Dede ; Move state to accept sent 
28 A3 OOAB ad COT$W_STATETR3S) : : 
50 02 3C Bond $98 MOVZWL #CDTSC_ACCP_PEND,RO ; Set block state to accept pending 
0080 394 SCSSEND: 
FF4D" 30 0080 395 BSBW SCSSREQ_SCSSEND ; Ask to send ACCEPT_REQ 
0482 «(31 pre? $9 BRW SUSP_CORCALL 3 Suspend SYSAP connéction call 
00B6 398 -DSABL LSB 
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0086 400 -SBTTL - FPCSREJECT, PROCESS A REJECT CALL 
Os 404 
00B6 4 ‘ ; FPCSREJECT is called directly from the SYSAP. It requests 
Q0B6 404 ; the SCS send process to send a REJECT_REQ message with SYSAP- 
boos 405 ; specified reject reason. FPCSREJECT then suspends the SYSAP 
086 $26 3; until the reject response arrives. 
00B6 407 ; 
0086 408 ; Inputs: 
0086 £0? 3 
0086 410 ; Ro “Reject reason (l.o. 16 bits) 
00B6 411; R “Addr of CDT (Listening CDT) 
sie 218 : RG “Addr of PDT 
oper aie ; CDTSL_SCSMSG “Addr of msg buffer containing CONNECT_REQ 
bone 416 ; Outputs (upon resumption of SYSAP): 
00B6 417; 
O0B6 418 ; RO -SS$_NORMAL, SS$_ILLCDTST 
00B6 9419 ; Ri, : -Destroyed 
Reee ro} 3 other registers -Preserved 
00B6 633 ; CDOTSW_STATE(R3) “Connect rec'd ==> Listen 
00B6 4235 ; 
00B6 424 
00B6 es? -ENABL LSB 
00B6 426 
00B6 427 FPCSREJECT:: 
00B6 428 
0086 $g3 SCHK_CDTSTATE - ; Verify CDT state is | 
00B6 430 N_REC,- 3 connect received; if not, 
00B6 431 ERROR=STATE_ERR ; caller made error 
FF3E* 30 OOBF $3 BSBW SCSSMAP_VMSSTS ; Map VMS status to SCS 
2603 50 BO O00C2 4 MOV RO,CDT$Q_REASON(R3) 3; Save reject reason | 
OB BO 00C6 434 MOVW #CDT$C_REJ_SENT,- ; Move CDT state to reject sent 
28 AS 00c8 8 435 CDT$W_STATE(R3) : : 
50 03 3C€ QOOCA 436 MOVZWL #CDTST_REJ_PEND,RO ; Set block state = reject pendin 
3 ie hb Bore +3 BRB SCSSEND 3; Ask to send REJECT_REQ & suspen 
OOCF 439 -DSABL LSB 
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ce ree -SBTTL = FPCSDCONNECT, PROCESS A DISCONNECT CALL 
OCF 108 7+ 
OCF 444 ; FPCSDCONNECT is called by the SYSAP. It may be called from 
OCF 445 ; three states. Depending upon the state, the following actions 
poet rr 3; are taken: 
OCF 4467; 
OOCF 448 ; STATE ACTIONS NEW STATE 
OOCF 449 ; 
OOCF 450; CLOSED No action; return success to the SYSAP, 
pece $25 ; SSSALRDYCLOSED. 
Soc 13 ; OPEN Trade DISCONNECT's with the remote SYSAP. 
OOCF 454; When the trade is done, return success to 
OOCF 455; the SYSAP. The state changes seen by the 
OOCF 456; side initiating the DISCONNECT are: 
OOCF 457 ; OPEN=->DISC_SENT=->DISC_ACK=-=->CLOSED. 
OOCF 458; The state changes seen By the passive side are: 
OOCF 459 ; OPEN==>DISC_REC-->DISC_MTCH=->CLOSED. 
OOCF 460 ; If both sides initiate a DISCONNECT 
Bore 461 ; simultaneously, so that the requests cross 
OCF 462 ; n the mail, then each side sees the 
OOCF 463 ; following state transitions: 
b0cr 466 ; OPEN=->DISC_SENT-=->DISC_MTCH=->CLOSED. 
OOCF 466 ; CON_ACK, Unilaterally deallocate CDT and associated 
QOCF 467 ; DIST_ACK receive buffers. Complete original 
OOCF 468 ; outstanding CONNECT/DISCONNECT with abort 
OOCF 469 ; status, SS$_ABORT. Return success on the 
OOCF 470 ; DISCONNECT call. 
OOCF 471; 
bocr 7 ; CON_REC Do a REJECT. 
OOCF 474; DISC_REC Send out a DISCONNECT (part of the normal 
OOCF 475; handshake discussed for OPEN.) The 
OOCF 476; DISCONNECT request is sent on the lowest 
OOCF 477; priority queue to delay it till all other 
OOCF 478 ; pending traffic, including block transfers, 
OOCF 479; is done. A credit message is forced out 
OOCF 480 ; first in order to make sure the remote 
Boer tt : knows about all the credits we have to extend. 
OOCF 483; Other states ALL other states represent the window — 
OOCF 484; between sending an SCS request and getting 
OOCF 485 ; the response. During this window the CDT 
OOCF 486 ; cannot be unilateral x destroyed and so 
OOCF 487; error status SS$_ILLCDTST is returned to 
OOCF 488 ; the SYSAP. 
OOCF 489 ; 
OOCF 490; Inputs: 
OOCF 491 ; : 
OOCF 492 ; RO “Disconnect reason 
OOCF 493; R3 “Addr of CDT being disconnected 
OCF 494; RG “Addr of PDT 
OCF 495; 
OCF 496; Outputs: 
OOCF 497; 
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OCF 498; RO “Status: SS$_NORMAL, SS$_ILLCDTST 
ce 499 ; R1,R2,R3 “Destroyed 
CF 0; Other registers -Preserved 
ga 
bce a8 -ENABL LSB 
+H 282 FPCSDCONNECT:: 
51 15 A300 484 at MOVL COTSL_PB(R3) ,R1 ; Get PB addr 
12 Al 61 00D3 508 CMPW 389s PBSW STATE(R{),- ; Is path in either — 
8000 gs 2 9008 9 ae: gpest_vC_FAIL ; virtual circuit fail or | 
Fre2* 31 00pB 31] BRW SCS$SDISC_VCFAIL ; 
is Al Bi OODE 18 2$: CMP PBSW_STATE(R1),- 3; power fail state? 
400 Br 12 BRE} i — gPOSC _PUR_FAIL : 
FFI7° 31 Opes 216 BRW ERRSDISC_PWFAIL ; If so, call different DISCONNECT 
00E9 518 38: SDISPATCH - 
O0E9 519 CDTSW_STATE(R3) ,- ; Dispatch on CDT state: 
00E9 520 <= :  (CLOSED/LISTEN handled by SCSLOA) | 
00E9 521 <CDOTSC_OPEN, | DISC_OPEN>,-  ;: OPEN, 
O0E9 5 ¢ <CDTSC_CON_ACK, DISC_CON_ACK>,=- ; CON_ACK, 
QOE9 5 <CDOT$SC_DISC_ACK,DISC-ILLSTATE>,-; DISC_ACK, 
QO0OE9 524 <CDT$C_CON_REC, FPCSREJECT>,- ; CON_REC, 
O0E9 525 <CDT$C_DIST REC ,DISC_DISC REC>,-: DISC_REC, | 
QO0E9 526 <CDT$C_CON_SENT,DISC_ILLSTATE>,-; CON SENT 
00E9 527 <CDTSC“DISC_SENT,DISC_ILLSTATE>.~ ; DISC_SENT, | 
O0E9 528 <CDT$C_REJ_SENT,DISC_ILLSTATE>,-; REJ_SERT 
00E9 529 <CDT$C-ACCP_SENT,DISC_ILLSTATE>,- ; ACCP_SENT 
00E9 530 <CDTSCDISC“MTCH,DISC-ILLSTATE>,- ; Matching DISC sent 
O0E9 231 > ; (CDTSC_VC_FAIL went to SCSS$DISC | 
B16 335 BUGCHECK CIPORT,NONFATAL : If none of the above 
109 «= 5534 3; states, system error, 
0109 535 : possibly recoverable | 
50 01 3€ 0109 536 MOVZWL #SS$_NORMAL ,RO : If bugcheck nonfatal, return 
05 010C 537 RSB 3 success to SYSAP 
ae 
010D 540 : Connection can't be closed right now without violating SCS protocol. 
10D ee) 3; Therefore close unilaterally and crash VC. 
13 He 
4 eee DISC_ILLSTATE: 
1C AS) =6DD «=0010D 546 PUSHL CDTS$L_PB(R3) ; Save PB addr : 
0A 10 0110 4 BSBB DISC_CON_ACK : Cleanup CDT and pending 
11 58 ; _CONNECT/DISCONNECT 
51 BEDO 119 49 POPL Ri ; Retreive PB address 
FEEB" 30 11 50 BSBW ERRSCRASHVC : Initiate VC crash 
50 601 C 0118 51 MOVZWL #SS$_NORMAL ,RO ; Set status to return to caller 
118 26 ; _on Latest DISCONNECT cail 
05 aie 7 RSB ; Return error to SYSAP 
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11¢ 55; 
11¢ 28 ; CDT has a CONNECT o DISCONNECT request already pending. Unilaterally 
11¢ ; clean up the COT. Complete ponding request with abort status. 
By: 28 : Complete this DISCONNECT with success. 
11C 60 
AN } DISC_CON_ACK: 
7E 54 7D 11¢ 86 MOva R4,-(SP) ; Save R4, RS 
55 68 A3 D0 O1IF 264 MOVL COTSL_ERS(R3) .RS ; Restore context from pending 
64 A D 0123 65 PUSHL CDT$L_FPC(R3) 3 _connx mgmt call 
FED7* 30 01 § 296 BSBW SCSSOEAL_ALLBUF 3; Clean up all receive buffers 
00000000 ' GF 6 01 6 JSB G*SCSS$DEALL_CDT ; Deallocate CDT (close status) 
50 C 3C O12F 568 MOVZWL #SS$_ABORT,RO ; Set status to abort 
€ 16 0132 569 JSB a(SPy+ ; Restore pendins af thread 
54 BE 7D 0134 £570 Ova (SP)+,R4 ; Restore 
50 01 3¢ 01357 571 MOVZWL 9 #SS$_NORMAL,RO : Set DISCONNECT status to ok 
05 O13A 276 RSB 3; Return from DISCONNECT 
0138 7 
0138 574; 
0138 575 ; SYSAP has received an unsolicited DISCONNECT request from t 
Bis 278 3; remote SYSAP and now wishes to issue the matching DISCONNECT. 
0138 578 
0138 579 DISC_DISC_REC: 
0138 580 
FEC2* 30 01368 581 BSBW SCSSMAP_VMSSTS : Convert reason from VMS to SCS 
26 AS «6550) = BOS sCé*OC13E 25s MOVW RO,CDT$Q_REASON(R3) : Save DISCONNECT | reason 
06 BO 0142 58 MOVW #COTSC DISC Pid : Move CDT sta 
28 A3 0144 584 COTSW STATETR ) 3 matchin DISCONNECT sent 
50 046 3¢ 0146 £585 MOVZWL #COT$C_DISC_PEND,RO : Set block state to sone DISCONNECT 
FEBG4' 30 0149 586 10$: BSBW SCSSREQ_SCSSEND : Send out the DISCONNECT 
0419 31 pret aH 208: BRW SUSP_ CORCALL ; Suspend SYSAP till aad 
O14F 589; 
014F 590 ; Connection is OPEN. Force soneten of any unextended credits (may | 
O14F 591 ; send 0 credits). Send out a DISCONNECT on the lowest priority queue. 
014F 236 3; Move CDT state from OPEN to DISC SENT. 
014F 593; 
O14F 594 
014F 595 DISC_OPEN: 
O14F 209 
FEAE’ 30 O14F 97 BSBW scsonee VMSSTS ; Convert status to SCS 
26 AS 50 B60 bie 598 MOVW 0,CDT$@_REASON(R3) : Save DISCONNECT reason 
05 BO 0156 599 MOV BcotSe DISC SENT - : Set CDT state to 
28 A3 0158 600 COTSW_STATETRS) : show DISCONNECT sent 
50 06 B80 OQO15A_ 601 MOVW #COTST_DCR_PEND ,RO : Block state will be disconnect 
15D cog ; i credit ending 
EA 11 15D §660 BRE 10$ : eeey uest SCS send and suspend 
13 604 : SYSAP till DISCONNECT complete 
015F 605 
O15F 606 -DSABL LSB 
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1 ~SBTTL SEQUENCED MESSAGE CALLS 
-SBTTL = FPCSALLOCMSG, ALLOCATE A MESSAGE BUFFER 
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FPCSALLOCMSG checks if there is at least one send credit. If not, the 
SYSAP is suspended behind other waiting SYSAP's until there is. fhe 
message buffer is allocated from nonpaged pool. If insufficient pool 
is available, then the SYSAP is suspended until pool is available. 
The destination connection ID is then copied to the SCS header 

at this time so that the message can be sent harmlessly even if 

a power failure should occur. (It will be discarded at the receiving 
end upon detection of connect ID sequence number mismatch.) bmg 
the address of the start of the agpt ication data within the buffer is 
computed and returned to the SYSAP. 
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F 
15F 
15F 
15F 
15F 
15F 
18 
18 
015F 
ne 
18 
015F 
O15F 
O1SF Inputs: 
015F 
Bize RG “Addr of PDT 
015F R5 “Addr of CDRP 
O13 CDRPSL_CDT “Addr of CDT 
Bize Outputs: 
O15 RO “Status: SS$_NORMAL, SS$_ILLCDTST 
15F R1 -Destroye 
015F R2 “Addr of message buffer, if status=success 
Bie Other registers -Preserved 
Bier CDRPSL_MSG_BUF -Addr of message buffer, if status=success 
015F 
Biae -ENABL LSB 
15F 640 
O15F #641 FPCSALLOCMSG:: 
015F ob¢ 
51 24 A5 DO O1SF 64 MOVL CORPSL_CDT(RS) ,R1 ; Get CDT addr 
016 644 SCHK_COTSTATE = : Verify connection state 
Bie 645 PEN,- 3; _iS open. 
19 o78 ERROR=STATE_ERR,~ ; Else report error to SYSAP 
18 AS 8EDO Sie 648 POPL CORP$L_SAVD_RTN(R5S) ; Save Ist level return 
40 Al 65 017 649 TSTW CDTS$W_SEND(R1) : Got any credit for send? 
1D 1A 017 650 BGTRU ; Branch if so ; 
0098 C1 B66 173 $3! pace CDT$W_QCR_CNT(R1) : Step count of # credit waits 
17 26 SUSP_S - ; Else suspend SCS routine 
4 o2? @CDTSL_CRWAITOBL(R1) 3 on credit wait queue 
FE6B" 38 198 655 10$: BSBW JUTSALLOC RSG ; Allocate a message buffer 
1¢ 50) —=CE 19 928 BLBS RO,20 : Branch if got it 
19 65 S$SUSP_SCS - ; Else suspend this routine 
19 $28 @PDTSL_WAITQBL(R4) 3; _on pool wait queue 
DE 11 16 223 BRB 10$ ; Try to allocate now 
51 24 A5 OD 1B4 661 20S: MOVL CORPSL_CDT(RS) ,R1 :; Get CDT addr again 
14 Al DO 0188 66¢ MOVL  CDTSL_RCONID(RI),- ; Set destination connect 
F8 Ag 188 sCS$L DST_CONID(R2) : ID in SCS header 
cas 65 DO O1BD 664 MOVL R2,CORPSL-MSG_BUF(RS) ; data and save in CDRP 
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~ FPCSALLOCMSG, ALLOCATE A MESSAGE BUFFE 
11 01C1 38665 BRB 508 
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1¢ 667 
1¢ 908 
1¢ i$ 
1¢ 670 
1¢ 671 
1C ore 
1¢ 67 
1¢ 674 
1¢ 675 
1¢ 978 
13 8? 
13 879 
He og0 
O1c3 82 
01C 33 
pit 684 
1¢ 685 
01C 686 
01C 687 
01C 688 
O1C 689 
01C 690 
01C 691 
01c3 «69 
Q1C3 «69 
Q01C3 694 
O1C 695 
O1C 696 
01C 697 
O1C 698 
O1C 699 
Q1C 700 
Bit 701 
51 $s AS DO OIC 70 
50 8 Al DE O1C7 70 
08 01CB 704 
01¢cD 705 
01CD i) 
Bice 70 
51 ¢ AS dO 01CD re 
50 C Al DO Q1D1 709 
103 oY 
1D 71 
0105 ns 
105 71 
105 74 
18 AS 8EDO 01D 715 
1E rig 
40 Al B65 OIE 71 
1F «611A «(ONE ne 
51 50 00 Q1E? 71 
1EA =720 
1EA 721 
51 24 A5 00 § eae § 
6 7 
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-SBTTL = FPCSRCHMSGBUF, RECYCLE MESSAGE BUFFER 
-SBTTL = T HIGH PRIORITY 
-SBTTL = FPCSRCLMSGBUF, RECYCLE MESSAGE BUFFER 
-SBTTL = T LOW PRIORITY 
: FPCSRCxMSGBUF checks if there is at Least one gene credit If 
3; not, the SYSAP is suspended until there is. FPCS$RCx MSGBUF then 
; decrements the send credit. The wait, if Ne sed Beces the 
; SYSAP CDRP at the end of the wait queue for low prior and at 
3; the head of the queue for high priority. The addre 
3; buffer being recycled is returned in both R2 and CDRPSL Msc eur. 
3; The remote connection ID s set in the SCS header so that the 
3 message can be sent harmlessly even 2 .poxer failure should occur. 
. (It will be discarded by the receiving SC 
: Inputs: 
; RG “Addr of PDT 
Hy RS “Addr of CDRP 
3 CORPS$L_CDT “Addr of CDT 
3 CDRPS$L_MSG_BUF “Addr of msg buffer 
: Outputs: 
; RO “Status: SS$_NORMAL, SS$_ILLCDTST 
: R2 “Adar of message buffer 
: R1 y -Destroyed 
s Other registers -Preserved 
; CORPSL_MSG_BUF (R5) -Addr of message buffer 
FPCSRCHMSGBUF :: 
MOVL CDORPSL_CDT(RS), ; Get CDT addr 
MOVAL CDTS$L_CRWAITOFL trl). RO ; Get addr of head of wait queue 
BRB 30$ :; Join common processing 
FPCSRCLMSGBLUF :: 
MOVIL. CORPSL_CDT(R5),R 3; Get CDT addr : 
MOVE COTSL_CRWAIT TOBL ( th. RO ; Get addr of end of wait queue 
30$: SCHK_CDTSTATE = ; Verify connect ten state 
OPEN,-=- s 8 open 
ERROR=STATE_ERR,~ ; Else report error to SYSAP | 
POPL  CDRPSL_SAVD_RTN(R5) : Copy return to SYSAP from stack 
TSTW © CDT$W_SEND(R1) S get send credit? 
BGTRU 40$ 3 Branch 
MOVL RO,R1 3; Get ues hdr in less volatile 
> regis 
SSUSP_SCS (R1) : Else suspend this routine 
MOVL CORPSL_CDT(R5),R1 ; Retreive CDT addr 
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v04-001 = FPCSDEALLOMSG, DEALLOCATE A MESSAGE BU 1 VE 
° FPCS DEALLOCATE A 

FPCS DEALLOCATE A 
ARGUMENTS PAS 
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FPCSDEALLOMSG resets the message address specified by the caller to 
the top of the message buffer and compares the current number of 
rocoto message buffers with the initial count specified at the 
time of the connect. If the current receive count is not less than 
the aid then the message buffer is deallocated to nonpaged 
pool. If the current receive count is less than the initial, 
then the ‘butter ‘s added to the free message queue and the pending 
receive count is incremented. If the receive count was also less 
than the minim ae. required by the remote SYSAP plus the flow control 
cushion (SCS$GW_FLOWCUSH), then the CDT is queued for sending a 
CREDIT message fo the remote. 


Entry FPCSDEALRGMSG is called with the same arguments as DEALLOMSG, 
but in registers instead of the CDRP. 


Inputs: 


nS “Addr of m ssage buffer (FPCSDEALRGMSG) 
“Addr of C PCSDEALRGMSG) 
“Addr of P 
“Addr of CDRP 
oR RP$L_CDT “Addr of CDT (FPCSDEALLOMSG) 
CDRPSL_MSG_BUF “Addr of msg buffer (FPCSDEALLOMSG) 


Outputs: 
RO-R2 —pestroved 


Other registers ved 
CDRPSL_MSG_BUF (R5) =O" (FPCSDEALLOMSG only) 
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+ 


-ENABL LSB 
FPCSDEALLOMSG: : 


1 
: PUSHL R3 3; Save caller's R3 
4 MOVL CORPSL_MSG_B $0 R2 ; Get addr of message buffer 
5 MOVL CORPS$L~CDTTRS) .R3 ; Get addr of CDT 
§ BSBB FPCSDERLRGMSG. 3: Call i te tag! locate 
3; Restore calle 
3 fero msg oder in CDRP 
3 Recurn 


CLRL  CDRPSL_MSG_BUF (RS) 


0 

1 FPCSDEALRGMSG:: ; Entry for appl. date pointer in R2 
§ ADDW3 $W_REC(R3),- 

5 


T ad 
; Compute total ok He credits now 
= extended + not yet extended 
v 


$W~PENDREC(R3) RO : 
c(R3) =: Total receive less than initial? 


COT$W_INITLREC 
SDEAL_MSG 


; Branch 

; Deallocate smessa e buffe~ 
to nonpaged 

;***Debug cnee 


SOOOCOOCOQOOOSCOSOSOOSOSOCOOCOOOCOSOOOCOSOSOSOOOOOOCOOOOOoOO 
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PAFPCALL 1:10:45 YAX/VMS Macr 
vou-001 1 13:22 DRIVER. SRCIJPAFPCALL .MAR; 2 (10) | 


ak dad BS 9 8 
- ARGUMENTS PASSED IN REGISTERS 10-SEP-1984 01: 


05 3b 139 RSB 3; Return to SYSAP 
roc" 30 086 10$: BSBW INTSINS_MFREEQ : Insert buffer on free queue 
a6 A B6 4 9 INCW CDT$W_PENDREC(R3) ; Reflect insert in credit 
0990009 ‘GF = =Al 4 794 DDW3 § G*SCSSGW PL OUCUSH - 3; Compute cushion + minimum # 
5 44 ‘i 4 795 Ta el ba Ty ),RO i; .send credits req'd by remote 
50 42A B1 4 £38 CMPW COTSW_REC(RS) ,RO i Is current # recv buffers less 
5 79 i; _cushion + minimum? 
13° «1A 5 £38 BGTRU 30$ : Branch if not 
50 05 3c : 444 SOE EL occ SC ACR PEND RO 3; Get credit block state code | 
2 4 COT$SW_STATE(R3),= : If connection is in any of the 
§ <- 3 states that indicate 
5 0 <CDTSC_DISC_ACK,30$>,- ; that the local SYSAP has 
5 04 <CDTSC“DISC“SENT,30$>,- :; issued a DISCONNECT request, 
8 22 05 <CDT$C_DISC_MTCH,30$>,- ; then don't ask to send a credit 
5 86 > ; request -- if we are already | 
026 80 3; queued to send the final credit 
026 808 3; that preceeds the DISCONNECT, then 
8 6 09 ; the latest credit will be included, 
° 1 : otherwise it won't 
FD9B' 30 036 \§ 20$: BSBW SCS$REQ_SCSSEND ; Request xmit of credit message 
05 0265 14 30S: RSB ; Return to SYSAP | 
Bs ee $13 
66 16 -DSABL LSB 


— 
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| V04-001 - FPCSSENDMSG, SEND A SEQUENCED MESSAGE 18-SEP-19 4 tee 744 (CDRIVER.SRCJPAFPCALL.MAR;2 . By 
es 18 -SBTTL = FPCSSENDMSG, SEND A SEQUENCED MESSAGE 
66 0 ;+ 
66 1 ; The SCS header of the ag be message buffer is filled in. 
66 ¢ ; If the response ID is 0, then the eyeceee is queued for transmission 
66 ; with RETFLAG = 1(TRUE) thus channeling the sent buffer to the response 
66 4 ; queve for reclaim. If the response ID is non-zero, then a 
66 > 3 responses is Me tite: from the remote SYSAP and the messag is sent 
0266 § ; with RETFLAG = OCFALSE). RETFLAG = FALSE channels the sent buffer to 
0266 ; the message free queue in anticipation of the response. In this 
0266 8 ; case the receive credit is also incremented to account for the 
8 66 9 ; buffer being added to the free queue. All messages are sent 
66 0 ; on the high priority queue. 
BEBE teow 
: Inputs: 
0266 $35 3 
0266 34 ; R1 -# bytes see* teen sen data (FPCSSENDCNTMSG) 
0266 35 ; RG “Addr of P 
ogee 36 ; Re “Addr of CDRP 
0266 6837 ; CDRPSL_CDT(RS) “Addr of CDT 
0266 838 ; CDRPSL_MSG_BUF (R5) “Addr of message 
$506 839 ; CDRPSL_RSPID(RS) “RSPID (to set RETFLG) 
0266 840 ; 
0266 841 ; Outputs: 
$566 ag : 
0266 843 ; RO “Status: SS$_NORMAL, SS$_ILLCDTST 
0266 844 ; 1,R2 ; “Destroyed 
0266 845 ; Other registers -Preserved 
0266 846 ; 
0266 847 ; CDRPSL_MSG_BUF (RS) -Zeroed to show msg buffer gone 
0266 848 ;- 
0266 849 
0266 850 -ENABL LSB 
0266 851 
0266 $26 FPCSSENDMSG:: 
0266 885 
51 Q0000000'GF 3C¢ asee S2¢ MOVZWL G*SCSSGW_MAXMSG,R1 : Set for default 
026D 856 FPCSSNDCNTMSG:: 
026d 857 
53 DD 0260 858 PUSHL R3 : Save caller's R3 
53 24 A5 DO O26F £22 MOVL CDRPSL_CDT(RS) ,R3 ; Get CDT addr in R3_ 
027 60 SCHK_CDTSTATE = : Verify connection is 
8 7 36) OPEN,- ; _open 
7 66 ERROR=STATE_ERR_R3,-: ; Else report error to SYSAP 
027 56 COT=R3 : , 
50 4 8 7c 64 CLRL RO ; Assume RETFLAG will be false 
7E 65 j ; .and we will put msg on free queue 
20 AS «6S «(O27E 66 TSTL CDRPSL_RSPID(®3) : Is there a rspid? 
12 + 6? BNEQ 0$ ; Branch if there is 
42 A Al 3 68 ADDW3 CDTSW_REC(E2),- ; Else compute total receive credits 
52 464A 86 69 COT$#~FENDREC(R3) Re ; queued now pes 
48 a3 52 B1 9 0 CMPW =s«R2, CDTSW_INITLREC(RS) : Current recv Less than initial? 
0 iF D 71 BLSSU ; Branch if so 
50 01 dO F a MOVL #SYSAPSC_DISPRET,RO ; Else set RETFLAG true 
23 11 ae 4 BRB 20% ; Join common processing 


oe 
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aks Lat pi: 
- FPCSSENDMSG, SEND A SEQUENCED MESSAGE 10-SEP-1984 01:15:44 (CDRIVER.SRCJPAFPCALL.MAR; 2 (17) 


46 AS BE 94 75 108: INCW CDT$W_PENDREC(R3) ; Step ponetng receive to reflect 
97 7 3 msg port will put on free queue 
3 78 
1c AS) DO 97 79 208: MOVL CORPSL_MSG_BUF(R5),R2 ; Get message buffer addr 
FO.Az” 51 OF AT 098 B80 ADDS #SCSSCTOVHD.RI, - i Set SCS Length 
A0 1 SCS$w_CENGTH(R2) : 
OA BO O2A0 8 ¢ MOVW #SCSS$C_APPL BSS" ; Set SCS type to application 
FO A 8 A2 8 SCS$W_ATYPETR2) 3 _message 
46 A BO AG 84 MOV CDTSW_PENDREC(R3),- ; Extend any pending receive 
FO A O2A7 85 SCS$W_CREDIT(R2) ; credits to the remote 
8 A AO 8 Ag 6 ADDW oe Tee te eeeee none 3; Move pending receives to 
42 A AC CDTSW_REC(RS) 3; actual receives (real send 
O2AE 88 3 credits extended) 
46 O2AE 89 CLRW CDTSW_PENDREC(R3) ; No more re credit 
18 0281 90 MOVL COTSL_LCONID(R3),- ; Put local connection ID 
FC A B4 91 SCS$L_SRC es pes 3; _into header 
51 1C A ee) B6 4 MOVL COTSL_PB(R3) ,R1 ; Get address of PB in R1 
7C A 6 BA 89 INCL  CDTSL-MSGSENT(R3) ; Step count of msgs sent 
FD40" 30 O2BD 894 BSBw INTSSROMSG 3; Send the message with RETFLAG in RO 
53 BEDO 0 co 95 POPL R3 ; Restore SYSAP's R3 
10 AS DS (O02C 96 CLRL CORPSL_MSG_BUF (R5) ; Mark msg as no longer held by CDRP 
20 AS) «6DS «6(02C6 97 TSTL CDRPSL_RSPTD(RS) ; Was RETFLAG true? 
13 = 13 sth 898 BEQL FPC_SUTCESS ; Branch if yes 
02CcB 899 SSUSP_FP ; Save fork process’ context 
0204 900 
0204 901 -DSABL LSB 


—— 
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yOeL50t DATAGRAM SERVICE CALLS 18-sEp-1 986 ote] 244 DRIVER. SRCJPAFPCALL.MAR;2 . (B) 

D4 =—s_-:903 -SBTTL DATAGRAM SERVICE CALL 
1 4 ¢ -SBTTL = FPCSALLOCDG, ALLOCATE A DATAGRAM BUFFER 
D6 «§606906; 
D4 309 ; FPCSALLOCDG allocates one datagram buffer from nonpaged pool. If 
D4 443 3 none is available, error status is returned to the caller. Otherwise, 
D4 909 ; the address of space for application data within the buffer 
+ 319 ; is computed and returned to the caller. 

8 D4 at) 3; Inputs: 
D6) «913; 

8 D4 914; RG “Addr of PDT 
D6) «915; RS “Addr of CDRP 

02D4 318 $ 

8 D6 «6-917 ; Outputs: 
D6) «918; 

0204 919; RO “Status: SS$_NORMAL, SS$_INSFMEM 

0204 920; R2 “Addr of dg, Start of application data 

0204 921; CDRPSL_MSG_BUF Copy of 

0204 9 ¢ : Other registers -Preserved 

0204 9235 ;:- 

0204 924 

0204 925 -ENABL LSB 

02D4 926 

8 + 4 FPCSALLOCDG:: 

D29° 0 O2D4 929 BSBW INTSALLOC_DG ; Allocate 1 dg buffer from pool 
850 €9 O02D7 930 BLBC RO,DG_ALC_FAIL ; Branch if failed 
° L_MSG_ ; Save addr in 
10 AS) =652~—CO«# 8 + $4 MOVL R2,CORPSL_MSG_BUF (R5) S dd CDRP 
O2DE 335 FPC_SUCCESS: 
O2DE 934 
oo Tf = pgde 935 MOVZWL #SS$_NORMAL ,RO ; Set status to success 
05 O2E1 936 RSB 3 Return 
bse 937 
8 : 236 DG_ALC_FAIL: 
50 01246 8F %F O5E 940 MOVZWL 9 #SS$_INSFMEM,RO ; Set status to failure 
05 O2E 941 RSB ; Return 
02E8 od 
O2E8 94 .DSABL LSB 


Pose 
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yOse00t - FPCSDEALLOCDG, DEALLOCATE A DATAGRAM B -SEP-1984 tee :1 42 DRIVER. SRCJPAFPCALL.MAR;2 . d 


3) 

E 945 -SBTTL = FPCSDEALLOCDG, PEA CATE A DATAGRAM BUFFER 
E ae -SBTTL = O NONPAGED POOL 
FB 9c 
E 309 3 ; FPCSDEALLOCDG simply converts the datagram aaddress to the address 
E 329 3; of the start of the buffer containing the datagram and calls 
: 3! ; COMSDRVDEALMEM., 
E 935 ; Inputs: 
E 954 ; 
E 955 ; R2 “Addr of Soregren 
E 328 3 RG “Addr of P 
E 57 ; 

O2E 958 ; Outputs: 

8 E 959 ; 
E 960 ; RO “Destroyed 

O2E 961 ; R2 ; -0 

8 EB 962 ; Other registers -Preserved 
EB 963 ;- 

O2E8 964 

O2E8 965 -ENABL LSB 

O2E8 966 

O2E8 967 FPCSDEALLOCDG:: 

O2E8 968 

FD15* 30 O2E8 969 BSBW INTSDEAL_DG ; Deallocate buffer 
524 osee 970 CLRL R2 ; Mark dg addr os gone 
05 O2ED 971 RSB ; Return to SYSAP 
O2EE 97 
O2EE 97 -DSABL LSB 


. oe 
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VOueo0r = FPCSQUEVEDG, QUEUE A SYSAP SUPPLIED BU 18-86-1984 4 tee ‘42 DRIVER. SRCJPAFPCALL.MAR;2 ° (ia) 
EE 975 -SBTTL = FPCSQUEUVEDG, oeue A SYSAP SUPPLIED BUFFER 
EE 378 -SBTTL = O THE DATAGRAM FREE QUEUE 
EE 97 
EE are 3+ 
EE 97 : FPCSQUEUE allows a SYSAP to sypely ee the port with a buffer to insert 
EE + 3 on the datagram free queue. YSAP must correctly set the type 
EE 981 ; and size field before galt ing this routine. The datagram receive 
43 oB8 3 count in the SYSAP's CDOT is incremented. 
8 EE ope : INPUTS: 
EF ee R Add f start of buff (NOT lL data) 
: “Addr of start of buffer appl data 
6 EE 3B 3 ns “Addr of CDT 
O2EE 988 ; “Addr of PDT 
O2EE 989 ; foTsu _DGREC(R3) -Current DG receive count 
O2EE 990; 
8 EE 991 ; OUTPUTS: 
EE o36 3 
O2EE 993; RO “Status: $S$_NORMAL 
O2EE 994 ; R1 -Preserved 
O2EE 995 ; R2 -Zeroed 
O2EE 996 ; CDTS$W_DGREC(R3) -Incremented 
Osee 997 ;:- 
O2EE 998 
O2EE 999 FPCSQUEUEDG:: 
OSee 1000 
FDOF’ 30 O2EE 1001 BSBW INTSINS_DF nceon ; Insert buffer on port queue 
4C AS) = B6SCOO2F1~= «1002 INCW CDT$W_DGREC(R3) ; Step SYSAP's receive count 
20 11 O2F4 1003 BRB O suctess 3 Finish up 


<Wwv 


PAFPCALL 16-SEP-1984 01: MS Macro V04-00 Pa Ss | 
yOseo0t = FPCSQUEUEMDGS, ALLOCATE DG"S AND QUEUE 1S-seP-1986 91; ER.SREIPAPPCALLMAR:2 O° (¥ap 
FPCSQUEUEMDGS, 


/ 

I 

"s AND QUEUE FOR 
*S AND RETURN TO 


nn 
wa 
. 
wn” 
www 
_ 
_~ 
aes 


+ 


FPCSQUEUVEMDGS is used by SYSAP's to alter the number of datagram buffers 
they have queued for receives. The datagram count is positive if 
datagrams are to be allocated from pool and queved for receives. The 
count agrument is negative if datagrams are to be removed from the queue 
and returned to nonpaged pool. 


If datagrams are being added, then for each one allocated and queued, 
the datagram receive count in the SYSAP's CDT is incremented. If there 
is insufficient pool for all to be allocated, then the number actually 
queued is returned to the SYSAP with a warning status. 


If datagrams are being withdrawn from the queue, then for each 

one dequeved and returned to pool, the datagram receive count in the 
SYSAP's COT is decremented. If the datagram receive count reaches 

0 before all that the SYSAP requested have been dequeued, then the 
—— actually dequeved is returned to the caller with warning 
status. 


Inputs: 


to withdraw (-) 
R3 “Addr of CDT 
R4 “Addr of PDT 5 
CDTS$W_DGREC(R3) “Current dg receive count 


Outputs: 


RO “Status: SSS$_NORMAL, SS$_DGQINCOMP 
(Datagram queuing incomplete) 

1 -# actually added (+) or withdrawn (-) 

2 : “Destroyed 

ther rogrevers -Preserved 

DT EC(R3) -Updated 


R1 -# of Hn to add (+) or 
f 


-ENABL LSB 
FPCSQUEUVEMDGS: : 
CLRL -(SP) 
R1 


BEQL Q SUCCESS 
BLSS DGUEVE_DG 


QUEUE _DG: 


Set running dg count = 0 
Check a9 count requested 
Branch if nothing to do 
Branch if withdrawing 


——-OFo 
Ons 


; Save count argument 

; Allocate a dg buffer 

; Restore argument 7 

; Branch if allocate failed 


RI 
SBW so INTSALLOC_DG 
BLBC —-RO,Q_INCOMPLETE 


PBAOM MMM SD DOA A AAA AA AA AAA AAAAA AAAS AA AAAAAAAAAAAPSAOAAAAAAOOAA AO 
el cd ce a ee a ee ed ee ed en en ee ee ee ee ee ae cd ee a ec ce de ee ee ee ee ee ee ee ee ee ce ee ee cd ee ee ca ed ee et ee cl ee ee el ee 
OOOOCOCOCOCOCOSCOCCOOCOOCOCOCVOOOOOCOCOC COCO OOC CCC OOOCOOCOCOCOOOOCOOOOOOOOOOOOo 


DPD PPP Be BB BB BE BE AINA AAAI AIO PPOPONIPINPNIS 2 OOO Oe 


=O ODN NE WN @ OOD NA UNE WIN O OD NAW EWN 8 OD NOU EWN  O ONO ES Wh "OOOO 


Dem oe ns Be ie Bs Be es Be ne ne Be i Be Be ne Be ee i ee ee ss ee es Be ee Be Be Bs es Be Be es se es ss 


COOOOOCOCOCOSOOCOOCOCOCOOCOOCOCOCCOOOOCSOOOCOOOCOCOCOOOOCOOCOOOCoOO 


PEALPIPIPPIPPPIPPIPINYPINININININININININININININININININININ 


o 
2 
* 
Sete eee 


<vU 


51 8EDO 


a§ 


o 
m 


oO "Ow oOo 
-—m MeNCOUM 


CE 


8EDO 


3¢ 
05 


Oo 


i kk kk a kk ak a a 
SOOO QCoOooooooooCoOoooOoOoCoooooOooO: 

Stato oul—o aie abate 
NOUS WN 0 OD NAME WN O DOONAN EAN OOOO 


TWHM OPOOCOWWWW MM BS NVMVOCTS FP PP FP OOOOOUWME 
0000000000000 0000000000 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
3 


POPL 
Q_SUCCESS: 


MOVZWL 
RSB 


DQUEUE _0G: 
MNEGL 
208: TSTW 


MNEGL 
BRB 


DQ_INCOMPLETE: 
MNEGL 
Q_INCOMPLETE: 


POPL 
MOVZWL 
RSB 


-DSABL 


NCW 
AOBLSS 


Ww 
AOBLSS 


#SS$_NORMAL ,RO 


R1,R1 


COT$W_DGREC(R3) 
DQ_ INCOMPLETE 
Q2POOL 


(SP), (SP) 


R1 
#SS$_DGQINCOMP RO 


LSB 


Be Se Se Ge Se Ge Ge Se Se 
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Else insert buffer on port queue 
Step SYSAP’s receive count 
Step running tally and branch 
if less than requested 
Retreive total tally from stack 


; Set status to success 
; Return to SYSAP 


Trun request count positive 


SYSAP have more dg's queued? 
Branch if not 
Remove a dg from free queue 
Branch if none 
Decrement SYSAP's recv count 
Step running tally, branch 

if more to do 
Retreive total tally and negate 
Join common success exit 


; Turn tally into negative # 


; Retreive tally from stack 
; Set status to error 
; Return 


—_—_ 


1 3 
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yOee00t - FPCSSENDDG, SEND DATAGRAM 18-36-1382 tee :44 CDRIVER.SRCJPAFPCALL.MAR;2 - de 
.SBTTL - FPCSSENDDG SEND DATAGRAM 
“SBTTL = FPCSSENDRGOG, SEND DG, NO CDRP 


3? 

; FPCSSENDDG formats and sends the caller-specified datagram. The 
SYSAP can specify via the flags input argument what happens to the 
buffer once it has been sent: 


flags = SYSAPSC_DISPQ implies that the buffer is placed 
on the datagram free queue for a future receive. 
The SYSAP’s datagram receive count is incremented 
in the CDT in anticipation of the buffer going on 
the free queue. 


= SYSAPS$C_DISPRET pore that the SYSAP wants the sent 
buffer Back, so RETFLAG is set to 1 (true) and 
DISPOSAL is 1. 


= SYSAPSC_DISPPO says that the SYSAP wants SCS to 
put the sent buffer in nenpoges pool, so RETFLAG 
is set to 1 (true) and DISPOSAL = 0. 


This data is all expressed in table DG_SENT_FLGS. 


lett ee eee tes bes basa bea na ina bn on os ts bs Bs ns nt ee Pe i i es bebe eee bee ee kk ee 
a ed a 
PVP BB BB BEE EWAN WII III POPP NINIPUDINIDY 2 OOO SY MS DOODOOOOCOCOCON 
MEAN 2 OOD NAUNE WN 0 OD NAMES WN OOO NAME WN OO OONOAUE WN OOD NAME WIN" 0 


WWNIAA AAAI WIAA NAINA ANNAN AINA NAINA AINA AIAN AAAI AINA AAAI 


0 
0 
3 
8 3 
033 
033 
3 Inputs: 
0 ; RO -Input flag described above 
0 R1 “Length of application data in gg 
0 R2 “Addr of 4g spp ication data (FPCSSENDRGDG) 
0 R3 “Addr of COT (FPCSSENDRGDG) 
033 RG “Addr of PDT 
0 ; R “Addr of CDRP (FPCSSENDDG) 
0 CORPSL_CDT “Addr of CDT (FPCSSENDDG) 
; CORPSL_MSG_BUF “Addr of datagram 
8 Outputs: 
0 RO “Status: SS$_NORMAL, SS$_ILLCDTST 
0 R2 f -Destroyed 
8 3 Other registers -Preserved 
0 
-ENABL LSB 
FPCSSENDRGDG: : 
53 DD PUSHL R3 : Save caller's R3 
4 SCHK_CDTSTATE = 3; Verify that connection state 
4 PEN,= : is open 
4 ERROR=STATE_ERR_R3,- 
4 COT=R3 : 
16 «617 2 BRB ; Join common code 
? FPCSSENDDG: : 
53 «OD 4 PUSHL R3 : Save caller's R3 
53 24 a5 00 4 MOVL CDRPSL_CDT(R5) ,R3 ; Get addr of CDT 


<wv 
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11 

11 

11 

11 

116 
116 
116 
116 
116 
116 
116 
116 
Hf 
119 
117 
117 
117 
117 
117 
117 
117 
117 
117 
118 
118 
118 


5 
é 
0 


WOOHOO NNN NNO 


VIOOOwon,y 


SCHK_CDTSTATE 


ERROR=STATE_ERR_R3,- 
CDT=R3 


CORPSL_MSG_BUF (R5) ,R2 


CORPSL_-MSG_BUF (R5) 


$W_DGREC(R3) 


$C_OVHD 
W cEngtacnd 


AANAMNAMOYNO -—e* 
PARRAARHAHANORY 
orrrrerr snee 


R 
D 
L 
S 
“P 
“D 


0 
0 
D 
$ 
C 
$ 
C 
Dd C 
C $s 
) C 
C R 
) B 
) G 
N 

3 


De OOOVrOouvravrs OornvwD 


TSSNDDG 
#5S$_NORMAL ,RO 


LSB 
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; Verify that connection state 
; _1$ open 
; Else report error to SYSAP 


; Get addr of dg buff, appl data 
; Show dg is gone 


; Dg goin - to free queue? 
; Branch not 
; Else step recv count in anticipation 


Dg aoe yon = SCS Bae: size + 
re cation d 
= cs any”e es repel telsion 


tagra 
Set dest inet ion connection 
ID in SCS header 
Put local connection ID 
into header 
Get address of PB in R1 
Step count of sonthassin’ dgs sent 
Send datagram 
Restore cailer's R3 
Set status to success 
Return to SYSAP 


an 


k 3 
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YOseO0t BLOCK TRANSFER CALLS 1 mi i5et} 7 tee :44 EDRIVER.SRCIPAFPCALL.MAR:2 a), 

.SBTTL BLOCK TRANSFER CALLS 

*SBTTL FPCSMAP MAP A BUFFER 

*SBTTL = FPCSMAPBYPASS, MAP A BUFFER W/ 

SSBITL - O ACCESS CHECKING 

*SBTTL = FPCSMAPIRP, MAP A BUFFER W/ 

*SBITL = ARGUMENTS IN IRP 

*SBTTL - FPCSMAPIRPBYP, MAP A BUFFER W/ 

*SBTTL = ARGUMENTS IN IRP AND NO 

“SBITL - ACCESS CHECKING 


+ 
Each of the entries converts its inputs to a set of common inputs: 


bb a 8 ts 5 a a a a 


R1 “Addr of 3 longwd orrey containing 
SVAPTE, BOFF, and BCNT (size) of 
buffer to map. 

R2 -Buffer Sescr iptor flags cane terion of 
valid (bit 15), access mode = 0/1/2/3 
(bits 15,14), and access checking = 0/1 
for disabled/enabled (bit 12). 


; Common map processing then consists of oh locating a buffer descriptor 
from the pool (common to all Cl ports). filling in the buffer descriptor 
; and then filling in the SYSAP‘'s 


If no buffer descriptor is available, then the common inputs are 
; saved ponpocer Sy in the buffer handle provided by the SYSAP. The 
SCS MAP routine is suspended until resumed by the deallocation of a buffer 
; descriptor. Upon resumption, all context is retreived including R1 
; and R2 and a buffer descriptor allocated. 


Inputs to all MAP calls: 


uffer handle. 


-PDT addr 


—_ = 


A. N.AN AAI AIAN NIN WINAIWI ANNAN 


oCVvVOVCVTVTVTUTVTTUTCTVTVTVCVCVCCCVTVTVCCVTVCCCCcCCC"CC0"0C0"0"000"°900"000 


SODOOOCOOOCOOSOCSOOOCOCOOOCOOOSOSOSSOSOSSCOCOCOCOCOCO OOOO OCOCOOOOOOOOOOOCOOO 


HAAN AAA AAA AAAI 


Ahhh) 5) ~ hh ~~~) 


ee a dd 
DP AAAAAAIAIAIAIAIIDINIDIPIPINININIDS 3 9 OO | SH QDOOCCOOCOOCOCOCOCOCOOOOOOOOOWMOMoMa@c 


SOC NA NE WIN 9 OO NAME WIN 9 OD NAME WIN O OD NA MEW 3 0 OD NAME WN S$ QUO 


R4 
R5 


-CDRP addr 
CDRPS$L_CDT “Addr of CDT 
CDRPSL_LBUFH_AD “Addr of SYSAP's buffer handle 
COTSL_RCONID -Remote connection ID 


; Inputs to MAP, MAPBYPASS: 


R1 
R2 


; Inputs to MAPIRP, MAPIRPBYP: 


CORPSL_SVAPTE (RS) 
CDRPSB-RMOD(RS) 


Outputs for all map routines: 


@CDRPS$L_LBUFH_AD(RS) 


-Addr of syapre come ace! array 
“Access mode = 0/1/2/3 for kernel/ 
exec/super/user 


= Addr of SVAPTE in IRP 
= Addr of access mode 


“Filled in with byte offset of buffer, 
buffer name, local connection ID 


Lt 3 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro V04-00 Page 30 | 
vOs-00t - ACCESS CHECKING 1 mets te 19: 144 YORIVER. SR RCIPAF PCALL.MAR;2 ° a7) 
124 
p ‘3 -ENABL LSB 
p rf: FPCSMAPIRPBYP:: 
31 cc AS bE D 126 MOVAL  CDRPSL_SVAPTE(RS) ,R1 : Get addr in IRP of SVAPTE | 
2 AB A 31 4 MOVZBL CDRPSB~RMOD(RS) ,RO + and access mode | 
3 ‘3 FPCSMAPBYPASS: : 
3 1 af ASSUME CIBDS$V_v EQ 15 
2s os 48 9 | 2¢ BISW #4 ,R2 ; Set valid bit to left of access mode | 
S52 5 ge, 98 1254 ASHL #CIBD$v ACMOD ,R2,R2 : Position valid, access mode 
11 i : 2? BRB MAP_COMMON ; Join common code | 
3E 3? FPCSMAPIRP:: | 
0044 8F B83 H 1 38 BITW #<IRPSM PAG t IRP$M_SWAP1O>, = 
CA AS O3A2 1260 CORPS STS(R5) ; Is this Fy py 1/0? 
E7 O3A4 1261 BNEQ FPCSMAPIRPBYP 3; Branch if sot 
51 CCAS DE 0346 1 6¢ MOVAL  CDRPS$L " SVAPTE (RS) R1 : Get addr in IRP of PSVAPTE 
52 a5 O3AA 1263 MOVZBL CDRPSB-RMOD(RS) ,Re ; and access mode 
j 
BaAe ! 0? FPCSMAP:: 
52 52 OD 78 O3SAE 1 7 ASHL #CIBDSV_ACMOD ,R2,R2 ; Position access mode | 
52 9000 8F A8& bee : o8 BISW #CIBDSM- “v'CIBOSM. AC,R2 ; Set valid and access check 
O38 29 MAP_COMMON: 
18 AS 8EDO td ' ie POPL CORPSL_SAVD_RTN(RS) ; Pop return from stack to CDRP | 
0386 i as ALLOC_BD: | 
53 DD Seep 1276 PUSHL R3 : Save SYSAP register 
50 00000000°GF 00 D 1277 MOVL G*SCS$GL_BDT,RO ; Get addr of buffer desc table 
53 -F4 AO B09 C4 1278 MOVL  CIBDTSL_FREEBD(RO).R3 =: Get addr of Ist free desc 
44 =» «1 C8 1279 BEQL WAIT_BD : Branch if none 
OC AS D0 O3CA 1280 MOVL Cres, LINK(R3) ,= ; Remove BD from Linked 
F4 AO cD 81 CIBDTSC_FREEBD(RO) : List | 
CF 1 : ASSUME CDRPSL_SVAPTE+4 EQ CDRPSW_BOFF | 
cr , ASSUME CDRPSWUBOFF+2 EQ CDRPSL“BCNT 
: § ; Fill in buffer descriptor: 
08 AS «81S Os«éOSCF C1 MOVL (R1)+,CIBD$L_SVAPTE(R3)_: Addr of PTE mapping buff 
63 81 52 Al D3 1 8 ADDWS R2,(R1)+,CIBD$SW FLAGS(R3) ; Byte offset, access, valid 
04 a3 61 DO 0307 1 MOVL  (R1),CIBO$L_BLEN(R3) =; ‘Size of buffer 
OC A 5 00 DB 30 MOVL  R5,CIBDSL_CBRP(R3) : CRP 
50 53 09900000 GF ¢ DF 1 36 SUBL3 G*SCS$GL_BDT,R3,RO ; Compute index 
50 5 FC BF E7? 129 ASHL -4,RO,R to buffer geqcriotor 
50 10 10 O2a3 F E 34 INSV  CIBOSW.KEY(R3),#16,416, rd i Put t seq a nh. 0. bits 
oO make Du 
53 2C AS 00 : 1$98 MOVL CORPSL_LBUFH_AD(R5) ,R3 : Get oF me handle to fill in 


= 


+ ha + SEP- ~138¢ 9 1: } 4? AX/VMS Macro V04-00 Page 31 
v04- = ACCESS CHECKING 10-SEP-1984 71 DRIVER.SRCIJPAFPCALL.MAR;2 (17) 
F6 129 ASSUME CIBHANSL_BOFF+4 EQ C1 Jevans. BNAME 
: ! 43 ASSUME CIBHANSL-BNAME+4 EQ CIBHANSC_RCONID 
§ D4 F6 1301 CLRL (R3)+ 3; Clear transfer offset 
83 D FB 1 § MOVL RO, (R3)+ : Copy pyt ter name 
59 24 ASD FB MOVL CDRPSL_CDT(RS) RO : Get CDT addr 
6 400 D FF 1304 MOVL  CDT$L_RCONID(RO),(R3) +: Put CONID into handle 
0094 cO «661 ~=COC 4 1305 ADDL (R1) ,COTSL_BYTMAPD (RO) ; Incr count of total bytes mapped 
4 1 $ 3; _by the # bytes hyst mapped 
53 BED 4 1 POPL R3 s Restore SYSAP 
18 B5 1 aoe | 8 JMP @CDRPS$L_SAVD_RTN(RS) 3; Return to SYSAP 
40E 19 WAIT_BD: 
51 OD cot 1 \¢ PUSHL ; Save SVAPTE arg.t cengerar tty 
51 2c AS DO 041 131 OVL CORPSL_LBUFH_AD(RS5),R1 ; Get buffer handl 
61 BEDO 0414 1314 POPL BHANSL_BOFF(R1) ; Copy SVAPTE and EL mode to 
08 Al 52 DO 0417 1315 MOVL OE BHAREE RCONID(R1) ; handle for duration of suspend 
04 AT D4 0418 1316 CLRL CTOHANSL BNAME (R1) : Zero buffer name to show 
41E 131? 3; that none is ath cated 
53 BEDO O41E 1318 POPL R3 3; Restore SYSAP 
51 50 D0 0421 1319 MOVL RO,R1 3; Copy BOT addr to  sunbebes not 
424 1320 3; _used by $SUSP_SCS macro 
50 24 A5 DO 0424 1321 MOVL CDORPSL_CDT(RS) ,RO ; Get addr of veOT 
009A CO «=6—B6 0620428 «(1 ¢ INCW COT$W_GBDT_CNT(RO) : Ince count of # times suspend:d 
042C 1 3; waiting for BDT 
042C 1324 $SUSP_SCS ; Suspend this couttas 
8 f 1325 aCIBOT$L “ WAITBL (R1) 3; on availability of 8 
51 ac AS D0 0445 1326 MOVL CORP$L_LBUFH_AD(R5S),R1 ; Get addr of lnreet's Sutter handle 
52 8 Al DO 0449 1327 MOVL CIBHANSL_RCONID(R1),R2 ; Retreive access mode and SVAPTE 
51 61 D0 044D 1328 MOVL  CIBHANSL“BOFF(R1),R1 =: saved over the suspend 
FF68 1 bees 1380 BRW ALLOC_ 3; Try to allocate now 
‘ am? 
EY 1331 DSAB $B 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro V04-00 
VOse00t = FPCSREQDATA, BLOCK XFER READ 18-S65-1 3b OFS: 82 YORIVER. SREIPATPCALL MAR: 2 
.SBTTL - FPCSREQDATA BLOCK XFER READ 
;SBTTL = FPCSSENDDATA, BLOCK XFER WRITE 


+ 
These two calls are the same except for the direction of 
the block transfer. FPCSREQDATA runs as follows: 


Fe Using the COT address specified in the SYSAP's remote buffer 
handle, fill in the allcoated message buffer with gg REQDAT 
opcode, remote station, and all frills set to 0. (512 byte 
data pkt, response bit o ath select auto.) The response 
bit = 0 will cause the REQOAT buffer to be put on the free 

queue once it has been sent where it will wait to receive the 

DATRET/DATREC notification of transfer completion. 


; 2. Fill in the sender buffer name and byte offset with info 

: from the remote buffer handle. Note that the net buffer offset 
is the sum of the offset in the buffer handle and the offset 
specified by the SYSAP in the CDRP. The buffer handle offset 

is normally 0. for third party transfers, it may be transformed 
by the SYSAP pcting as the manager of the third a transaction 
in the case where that SYSAP discovers that it must break a2 
transfer into transfers from different sources. The CDRP byte 
offset is intended for use by a SYSAP doing segmented transfers. 


3 Fill in the receiver buffer name and byte offset with info 
from the local buffer handle. 


3 4. Set the XCT_ID to the local CONID (from the local buffer handle) 
3 followed by the RSPID from the CDRP. Set the XCT_LEN to the 

: value specified in the CDRP. 

: §. Map the RSPID to the CDRP, save the SYSAP's context in the CDRP; 
: send the REQDAT message. and return to the caller's caller. 

: The SYSAP remains suspended until the transfer completes at which 
3 time the SYSAP is resumed at the instruction following the call 

; to request data. 


FPCSSENDDATA has its own version of steps 1-3. In this case the 
; send buffer information is in the local buffer handle and the receive 
buffer information is in the remote buffer handle. 


BRR RRR RRR RRR RRR RRR RRR RRR REPRE PEERS 


Se eee ee enna ah ah dh th Ah dh eth hh eh ah ad ah ad ah ad a) ad a ea ead ee ah ead ea ee ea) oa) ea ea aes ea ea eae) 


OOOCOOCCCOOOCOSOOSOoOoOSCOOSO 


SOOSOCOSOOOOOOOOSOOO 
PREPRESS 


PRL EEE 


; Inputs: 


R4 “PDT addr 
R5 “CDRP addr 


CORPSL_RSPID “RSPID te use to correlate tramsfer 
completion with initiation thread 
CORPSL_MSG_BUF “Message buffer to use for xfer command 
CORPSL_XCT_LEN -# bytes to xfer 
CORPS$L_-LBUFH_AD “Addr of local buffer handle 
CORPSL_LBOFF “Local byte offset for segmentation 
CORPS$L_RBUFH_AD -Addr of remote buffer handle 
CORPSL_RBOFF “Remote byte offset for segmentation 


; Outputs: 


SSIS SSS SSD DDD DDD DODDS TTT BB BS BB EE EAI 


a a aka ak a tk tk a a at ot = = = = ss ss ss td 2 ts ss ss 3 48 Ss a Ss Ss Ss 3 Ss 


DOD NAMNE AN 2S OD NAME WIN 9 OD NAMES WIN 9 OD NA UNE WIN O OD NAME WWI) OOONOUE Ww 


—— 


PAFPCALL 16-SEP=1984 01:10:45 VAX/VMS Macro V04-00 Page 33 PA 
v0G~004 - FPCSSENDDATA, BLOCK XFER WRITE 18-SE-1 986 1:15:44 (CDRIVER.SRCJPAFPCALL.MAR;2 . (18). vO 
$2 1390 ; 
4 1391 ; RO “Status: SSS$_NORMAL, SSS$_ILLPORTOPR 
453 1 35 : Ri, R2 -Destroyed 
453 1395; R3 -Preserved 
45 1394 ; R4 -PDT addr 
rf : 32 3 RS -CDRP addr 
‘3 : 3 3 RSPID, msg buffer -Deallocated 
O43 1200 3 CORPSL_MSG_BUF (R5) :Zeroed to show msg buffer gone 
45 1431 
453 14 ¢ -ENABL LSB 
453 140 
045 1404 FPCSREQDATA:: 
0453 1405 
53 DD Bee 1508 PUSHL R3 ; Save SYSAP's R3 
51-34 AS 0 0455 1407 OVL CDRPSL_RBUFH AD(R5),R1 ; Get addr of remote buffer handle 
53.08 Al C 0459 1406 MOVZWL CIBHANSL_RCONID(R1),R3 ; COmpute addr of T 
50 e's tate 4 DO 045D 1409 MOVL estt4 sel eae ; specified by local 
a DO 0464 1410 MOVL (RO)CR3J,R3 ; buffer handle 
O08C C D6 0468 1411 INCL CDT$L_REQDATS(R3) ; Incr number of request datas issued 
3C AS §=6CO (0460 13 ADDL CORPSC_XCT_LEN(RS),= ; Step count of # bytes xferred via 
0090 C3 046F 141 CDT$SL_BYTREQD(R3) 3 all request datas 
51 34 AS 0472 1414 MOV! CORPSC_RBUFH_AD(RS5),R1 ; Get addr of remote buffer handle 
52 1C AS DO 0476 1415 MOVL CORPSL-MSG_BOF (RS) ,R2 ; Set pointer to SCS area 
04 Al 047A 1616 MOVIL. CIBHANSL_BRAME(R1),- ; Set send buffer name 
FC A2 047D 141 SCS$L_SNB_NAME (R2) 3; to remote 
61 C1 O47F 1418 ADDL3 CIBHANSL_BOFF(R1),- 3 Set send byte offset to 
38 AS 0481 1419 CORPSL_RBOFF (RS) ,= ; xfer offset + 
62 0483 1420 SCS$L_SND_BOFF (RO) ; _segmentation | 
51 2c A DO 0484 1421 MOVL CORPSC_LBOFH_AD(RS),R1 ; Get local buffer handle 
04 Al DO 0488 14 ¢ MOVL CIBHANSL_BNAME(R1),= ; Set receive buffer name 
04 A2 0488 14 SCS$L_REC_NAME(R2) ; to local 
61 C1 048D 1424 ADDL3 CIBHANSL_BOFF(R1),- 3 Set receive byte offset to 
30 AS O48F 1425 CDORPSL_LBOFF (RS) ,- ; xfer offset 
08 A2 0491 1426 SCS$L_REC_BOFF (RO) ; + segmentation | 
50 O000'CF 9E 0493 1427 MOVAB = W*INTSREQBAT,RO ; Addr of PPD action routine 
45 11 0498 1428 BRB COMMON_XFER ; Join common code 
049A 1429 
049A 14350 FPCSSENDDATA:: 
049A 1431 
53 DD O49A 14 ; PUSHL R3 : Save SYSAP's R3 
51 34 AS Ro bend 14 OVL CORPSL_RBUFH_AD(R5),.R1 ; Get addr of remote buffer handle 
08 Al C AO 1434 MOVZWL CIBHANSL_RCONID(R1),R3 ; COmpute addr of CDT 
50 sats eae 4 04A4 1435 MOVL esti tt L,RO 3: specified by local 
‘aed: D neue 14 $ MOVL (RO)CR3J,R ; buffer handle 
as C D6 O4AF 14 INCL core SNODATS(R3) ; Incr total # send datas issued E 
CA CO 04683 1438 ADDL CORPSC_XCT_LEN(RS),= ; Step count of total bytes xferred via 
a C 88 1439 core BYTSENT(R3) 3; _send datas 
51 4 A5 D0 0489 1440 MOVL CORPSC_RBUFH AD(RS),R1 ; Get addr of remote buffer handle 
52. 1C AS DO Q4BD 1441 MOVL CORPSL_MSG BOF (RS) ,R2 ; Get base of buffer 
os Al 00 04C1 1648 MOVL CIBHANSL_BRAME(R1),- ; Set receive buffer name 
A2 4C4 144 SCSSL_REC_NAME(R2) ; _to remote 
61 (C1 rts | 1444 ADDL3 CIBHANSL_BOFF(R1),- 3; Set receive byte offset to 
3 AS 4C 1445 CORPSL_RBOFF(RS),= ; xfer offset + 
8 A2 4CA 1446 SCSS$L_REC_BOFF (RO) : segmentation 
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COMMON _XFER: 


16-SEP-19 
EP -198 
MOVL CORPSL_LBUFH_AD(RS) 
MOVL CIBHANSL_BNAME(R1), 
SCSSL 30 NAME (R2) 
ADDL3 CIBHANSL_BOFF(R1),- 
CORPSL LBOFF(RS),- 
SCS$L_SND_BOFF (Re) 
MOVAB W*IN NISENDBAT RO 
SCHK_CDTSTATE - 
OPEN 
ERROR=STATE_ ERR_R3,- 
MOVL COTSLLCOMIDIRS) o~ 
SCS$L-LCO QUID IRE? 
MOVL CORPSC_RSPID(RS),=- 
SCSSL RSPID «RSD 
MOVL CORPSC_XCT_LEN(RS),- 
SCS$L_RCT_CEN(R2) 
MOVL COTSL_ “PBR ),R1 
JSB (RO) ~ 
CLRL CORPSL_MSG_BUF (RS) 
POPL R3 
SSUSP_FP 
-DSABL LSB 


21 
71 
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Get local buffer handle 
Set send buffer name 


to loc 


al 
Set send byte offset to 


xfer offset + 
segmentation 


Addr of PPD action routine 


Verify connection state is 
open. 

; Else notify caller 

Set transaction ID = 


local CONID followed 
by RSPID 


Set transfer size 


Get address of PB in R1 


Call the PPD Layer 
Zero msg buffer addr 
Restore SYSAP's R3 

Suspend caller 


: 
: 


OOMOQMOOOOLN 


- [TF OWoo 
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fats Sat BS 9 oi] 745 VAX/VMS Macro v04-00 Page 35 
10-SEP-1984 01:15:44 CDORIVER.SRCJPAFPCALL.MAR;2 (19) 


-SBTTL = UNMAP, UNMAP A BUFFER 


A BUFFER 


+ 

UNMAP converts the buffer name specified in the local buffer handle 
to a buffer descriptor address. If the buffer descriptor is not 
epee (sequence number check), then the routine bugchecks. Otherwise, 
he descriptor valid bit is cleared, the sequence number incremented, 
and the descriptor is Linked to the free List. Any CDRP waiting for 
a buffer descriptor is resumed. 


: Inputs: 
: RG -PDT addr 
; RS “CDRP addr 
: CDRPSL_LBUFH_AD -Addr of local buffer handle 
: Outputs: 
: RO-R2 Destroyed 
3 Other registers -Preserved 
: CIBHANSL_BNAME -leroed 
-ENABL LSB 
FPCSUNMAP: : 
MOVL CORPS$L_LBUFH_AD(RS),R1 ; Get addr of local buff handle 
MOVL EL SHANEL GHARME (RI) AZ ; Get buffer name 
BEQL 0$ ; Branch if none allocated 
MOVZWL R2,R2 ; Isolate BD index 
OVL  G*SCS$GL_BDT,RO : Get addr of BDT 
CMPL R2,CIBDTSL_MAXIDX(RO) ; Index greater than maximum? 
BGTR BD_SEQ_ERROR ; Branch if so, same as bad seq number 


ASSUME CIBDSC_LENGTH EQ 16 


Prepare for net 16 byte index 
Get addr of BD 
Sequence # in BD = 
that in buffer handle? 
Branch if not 
Step sequence number 
Branch if nonzero 
Else step again 


Clear valid bit 


R2 Re? 
MOVAQ (RO)CR2],R2 
Ww CIBDS$W_KEY(R2),- 
CIBHANSL_BNAME+2(R1) 
BNEQ BD SEQ_ERROR 
CIBDSW_KEY(R2) 


INCH  CIBDSW_KEY(R2) 


10$:  BBCC *#CIBDSV_V,- ; 
CIBD$W_FLAGS(R2),20$ : 


208: MOVL FFeeT et FREEBD(RO),- 


C 
MOVL 2, CIBOTSL_FREEBD(RO) 
CLRL —- CIBHANSL_BRAME(R1) 


SRESUME_FP - 


Link this BD to 
free list 


Zero buffer name to show 
none mapped > 
Resume waiter, if nay 


vaca 


= UNMAP, 
4¢ 

F 

0s O83 
6 

6 

6 

? 
67 
567 
05 0567 
208 

56 


UNMAP A BUFFER 


a —) > 2 > _» a _» —» > > 5 _» 


ga SE 


4 30$: RSB 


BD_SEQ_ERROR: 
BUGCHECK CIPORT,NONFATAL 


408: RSB 
-DSABL LSB 


“SEP=1984 
“SEP=1984 


71 
21 
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; Return to caller 


SYSAP tried to unmap buffer 
without right key -- leave 
buffer descriptor perpenentty 
allocated and do nothing to it. 


return to caller 


F 4 
PAFPCALL -SEP-1984 01: ! :45  VAX/VMS Macro v04-00 Pa 7 | 
YOseo0t - hati SUSPEND CONNECTION -SEP-1984 01:15:44 (CDRIVER.SRCJPAFPCALL.MAR;2 = 36) 
1 6 -SBTTL = apenas? SUSPEND CONNECTION 
g 1 -SBTTL = MANAGEMENT CALL 
11. 
68 1 29 : Connection management calls assume that the SYSAP's — rocess 
568 1551 ; consists of R3 = CDT address, R4 = PDT address, R5, and (SP) 
568 1 § 3 return trom the connection management call. R% is * sutemet ical 
26 1 ; restored by the event (response) triggering call completion; R 
68 1554 ; is restorable from the CDT. Therefore, the only context saved is 
2° : 22 ; RS and return from call. 
26 | 33 : Inputs: 
56 1385 : -CDT addr 
568 1560 ; RG -PDT addr 
0568 1561 ; RS “SYSAP's R5 
bee 1206 : (SP) -SYSAP PC 
Bagh 1968 utouts: 
0568 1566 : RS, (SP)+ “Saved in CDT 
0568 1567 ; Return to caller's caller 
Beek 1agh 
0368 1309 -ENABL LSB 
beee 1328 SUSP_CONCALL: 
68 A3 55 DO 0568 1574 MOVL RS,CDOTSL_FRS(R3) 3; Save SYSAP R5 
64 A3 BEDO 056C 1575 POPL  CDT$L_FPC(R3) > Save SYSAP PC and remove it from stack 
05 0570 1576 RSB ; Return to caller's caller 
0571 +1577 
0571 1578 -DSABL LSB 


G 4 


PAF PCALL 16-SEP-1984 01:10:45 AX/VMS Macro V04-00 Page 38 
VOue00 = STATE_ERR, RETURN CDT STATE ERROR 18-86-1882 gi3 744 (DRIVER. SRCJPAFPCALL.MAR;2 . 3) 
7 1 9 -SBTTL = STATE_ERR, RETURN CDT STATE ERROR 
' 3 -SBTTL = TO SYSAP 
2% § 
re oa 3+ 
i) ! : : Set error status code and return to caller. 
71 1 : 
$71 ! $ STATE_ERR_RS: ; Entry if caller's R3 is saved on stack 
53 BED0 27) : 5 POPL R3 ; Restore R3 for caller 
ie ! 4 STATE_ERR: 
50 2154 BF HS 574 1898 MOVZWL #SSS$_ILLCDTST,RO 3; Status = ‘ilesst CDOT state 
05 0579 1594 RSB 3; Return to SYSAP 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro v04-00 Pa 9 P| 
YOsLo04 MAINTENANCE FUNCTION CALLS 18-SE5-1 382 BFS: 82 DRIVER. SRCJPAFPCALL.MAR;2 = 33) Vi 
7A 159 ~SBTTL MAINTENANCE FUNCTION CALLS 
7A 9 -SBTTL = FPCSREADCOUNT, READ AND LOCK 
oA 4 -SBTTL = PORT COUNTERS 


oe 


This routine is called by a SYSAP to reset the port counters to begin 
counting ACKS/NAKS/NO_RESPONSES on each path and total datagrams discarded 
from a particular port or all ports. The SYSAP ‘owns’ the counters until it 
does a RLS_COUNTERS call. If another SYSAP owns the counters, then 

error status is returned to the SYSAP. 


Note that this is an unusual fork process call in that the SYSAP hands 
FPCSREADCOUNT the base of the PPD Layer of the dg pkt, and receives 
back the PPD layer address of the counters read response. The reason 
is that in this one case the application data is entirely port specific. 
The mechanism for managing counter ownership is all that is assumed to 
be port independent and hence can be handled in this module (which must 
be port independent.) The packet address is simply passed through this 
layer to the PPD layer without being used in any way. Future port 
implementations may have different counter management and, in that 
cose soumeer ownership book keeping would also have to migrate into 

& ayer. 


BEE EWA WAAR POPPIN 2 QO 


MRO OONOA UE WN 2 OOO NA UNE WIN CO OOO NE WWIN  O ODNAU EW O OONOAU EW "OO 


SOOCCOSCOOOCOCOOCOCOCOOCOCOGOOOS COS OSOSGOCOCOOOOCOCOCOOCOOCOCOOCOCOOOOOOOOOCOOoOOo 


SR ee eee eee ee aah ah ah ah ah ah ah ah ah ah ah dh dh ah ah ab dh dh ah ab ah dh dh ae ah ah ah 
kk kk kk tk a at ik ak ak a a a a at th at at an ss tt 


PRAPRQDXPDPPAAPEXPPDP DAA AA AAA AAA AAA AAA AAAAAAAAA AAA AAEAAAO AAA ACAOOCOIUM 


Se Di in Dns ts tn nn, tn Pinna, in jPn. Pn, nina Pn, Pn nD _in_in_n_in_Pin, Pinna. Pinna Sin_Ptn_in_PinPin_tn_Din_nn_) 
>>> >>> rr > rrr rrr rrrrrrr,rr,r>rrrrrrrrr,r>r>?r Yr Yr > PP rrrr>r 


WINE BLES 


POTSB_FLAGS(R4) 
POTST_CNTOWNER(R4) 


PPDSL_PO_ACK(R 


-ENABL LSB 


Inputs: 
RO “Addr of remote station to count for; 
0 addr means count for all stations 
R1 “Addr of local process name 
R2 “Addr of base of datagram sized buffer 
(PPD Layer) 
RG “Addr of PDT 
RS “Addr of CDRP 
Outputs: 
RO “Status: SS$_NORMAL, SS$_INTERLOCK, 
SS$_NOSUCHNOBE 
R2 “Addr of datagram buffer, current counters 
to all ports since last release 
R1 “Destroyed 
Other registers -Preserved 


-Counters busy thes set 
“Name of owning SYSAP 


“ACKS on path 0 

“NAKS on path 0 

“No responses . path 0 
“ACKS on path 

“NAKS on path 1 

“No responses on path 1 
-Datagrams discarded 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro v04-00 Page 40 Pi 
VOeeb04 - PORT COUNTERS 18-36} 382 1:15:44 CDORIVER.SRCJPAFPCALL.MAR;2 . (22) vi 
7 16 ; FPCSREADCOUNT:: 
00 «£2 oA i 5 BBSS #POTSV_CNTBSY,- ; Branch if counters busy; else 
23 00C0 cé 16 $ POTSW_FLAGS(RA) BSY_ERR ; set busy and continue 
Bore C4 ee. . 16 mMOva (R1)*7PDT$T_CNTOWNER(R4): Save new owner's name 
Occ C4 «6617 H 16 g MOVQ  (R1) ,PDTST_CNTOWNER+8(R4S 
02 AA A 1660 108: BICW #PDTSM_CNTRLS,- ; Clear release pending 
00C0 C4 5 C 1661 PDTSW_FLAGS(R4) : 
2 : 1668 ISSUE _RDCNT: 
FA 7 30 : F 1688 BSBW INTSREADCNT : Issue command to port 
25 E9 238 1296 BLBC RO,30$ 3; If error, leave now 
0004 c6 55) s«iOs«0595 166 MOVL __RS,PDTSL_CNTCDRP(R4) =: Save caller's CDRP addr 
S9A 1998 SSUSP_FP ; Save fork process’ context 
2 199% 3 till response arrives 
A + 4 BSY_ERR: 
0D BB OSA 1878 PUSHR #*M<RO,R2,R3> ; Save registers for CMPC 
1 10 29 OSA ore CMPC3 #16,(R1),- ; Is current owner = requestor? 
00C4 C4 5aB 1675 PDT$T_CNTOWNER(R4) ; 
50 v5 O58 1976 TSTL RO 3; Check compare result 
04 12 OSAD 167 BNEQ 20$ ; Branch if requestor not owner 
OD BA Bear 1678 POPR #*M<RO,R2,R3> 3; Restore registers 
D7 = beet 1923 BRB 10$ 3; Continue with request 
0D bap 1681 20$: POPR #*M<RO,R2,R3> ; Restore registers 
50 038¢ 8F 3c 0585 168¢ MOVZWL #SS$_INTERLOCK,RO : Else set error status 
05 been 1oR7 30$: RSB ; Return to SYSAP 
0588 1685 -DSABL LSB 


J 
PAFPCALL 16-SEP-1984 aes cro YOR 00 Pa 41 
VOseo0t = FPCSRLSCOUNT, READ AND RELEASE 18-8 Fon y ope gti YORIVER of RCIP PAFPCALL.MAR;2 ” (23) 
BB 1687 -SBTTL = FPCSRLSCOUNT, READ AND RELEASE 
BB 16 3 -SBTTL = PORT COUNTERS 
BB 1690 4 
BB 1691: FPCSRLSCOUNT has the same function as FPCSREADCOUNT except that the 
BB 1 3 ; caller is asusmed to already own the counters so no check is done, and 
BB 1695 ; the port is reset to count all pores again. (Count all is the default 
4 : 3¢ 3 while the counters are unowned. 
a8 1638 | Inoue 
BB 1698 : R Addr of f i ff 
268 1838 Re eer of be base of dg sized buffer 
208 if ° : “Addr of CDRP 
4 \e ¢ ; Outputs: 
588 1704 : RO “Status: $S$_NORMAL 
58B 1705 ; R “Addr of datagram butter filled 
5BB 17 $ 3 as specified in FPCSREADCOUNT 
3288 78 : R1 -Destroyed 
588 1509 : Other registers -Preserved 
a8 ne 
p208 ar -ENABL LSB 
056 Hay FPCSRLSCOUNT:: 
02 a8 0588 at BISW #POTSM_CNTRLS ; Set count release pending 
00CO C4 0580 171 PDTSW_ FLAGS(R&) : 
50 04 O5C0 1718 CLRL R 3; Set port to count all ports 
cB sé? Bate fab BRB ISSUE _RDCNT ; Go give read count command 
05C4 1758 -DSABL LSB 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro v04-00 Page 42 
yOne00t - FPCSMRESET, RESET REMOTE PORT/SYSTEM 18-$66-1 382 tee 744 ([DRIVER.SRCJPAFPCALL.MAR;2 . (24) 
f? 7 ; -SBTTL = FPCSMRESET, RESET REMOTE PORT/SYSTEM 
C4 1? 5 34 
c4 («1 § 3; FPCSMRESET allocates a datagram buffer and uses it to send 
b? 1 ; @ maintenacne reset to the specified remote port. 
2 Vf : 3; Inputs: 
C6 «#1731; RO -0/1 for dont/do force reset 
C4 #17 § 3 R1 “Addr of remote station to reset 
C4 41733; RG -Addr of PDT 
te Ve 4; 
ete vy 5 ; Outputs: 
5C4 (17 $ : RO “Status: SS$_NORMAL, SS$_INSFMEM, 
5¢4 1738; $S$_NOSUCHNOBE 
5¢4 1739; R1,R2 -Destroyed 
5C4 1740 ; 
5C4 1741 ; Other registers -Preserved 
054 The = 
Bete 174 
5C4 1744 -ENABL LSB 
5C4 1745 
54 1768 FPCSMRESET:: 
5C4 174 
53 DD O05C4 1748 PUSHL R3 ; Save SYSAP register 
0000' CF 9F O5C6 1749 PUSHAB W*INTSMRESET : PPD action routine 
06 11 OSCA 1750 BRB 10$ ; Join commond code 


53 DD 
QOOOO'CF OF 
07 
rae’ 

08 50 =E9 
0B BA 

43 16 

53 8ED0 

OE 50 4 
5 


7 ~=BA 

3 D5 

8EDO 

50 0124 8F f 


PAFPCALL 
vou-60t = FPCSMSTART, SEND START TO REMOTE 


WOO OOOO OO 000909 09 09 09 09 09 09 09 SI NINN NINN NN NIP AAA AAA AAA MMIII 


CDOSOOCSCOCOCSCOCSCOCOCOOOSOOOOOOO OOO OOOO OOOO OOOO OOO OOO OOOO OOOO OOO 
eee aaa eal eal eal wal ah al al alah ab abval al alah val alah al al ALvaLral aL AL vaLvaL AL vALvaL aL AL vAlvalvalvalvalvalalvaival 
RH HHH HH HH HMMMMMMMMMNS OS SC OO SF OOOOAOAAAOOOAAOOAOOOAAOAAOAAOOOAO 
WDD NPP NININY 2 EF O NINN SS MO BW NLSNNIMOOOOOOAOAOAAOAAAAOAQMOAAAOAAOOAOO 
me ee ee a a at os ot ot 8 4 8 =o od So 8 2 SS = SS 2 SS 3 SS 
090909090909 08 SINISE 
FARO LSS WOAH HOODS AHN EIN 2 DOS UPS Oo OOd a AON o> OOD EO SEP 


Soooooo 


L 


Inputs: 
RO 


; R4 
3 Outputs: 
; RO 

3 R1,R2 

; Other registers 
FPCSMSTART:: 


PUSHL R3 
PUSHAB W*INTSMSTART 


10$: PUSHR #*M<RO,R1,R2> 

BW INTSALLOC_DG 
RO,MEM_ER 

POPR #*A<RO,R1,R3> 
alee 

BLBC RO,PORT_ERR 


MEM_ERR: 
POPR #*M<RO,R1,R2> 
(SP)+ 


PORT_ERR: 


RO 
BSBW JETEDEML 96 


-DSABL LSB 


R 
MOVZWL #SS$_INSFMEM,RO 


16-SEP-1984 01:19:67 AX/VMS Macro V04-00 
10-SEP-1984 01:15:44 (CDRIVER.SRCJPAFPCALL.MAR;2 
-SBTTL = FPCSMSTART, SEND START TO REMOTE 
-SBTTL = SYSTEM 


+ 
FPCSMSTART allocates a datagram buffer and sends a start command 
to the specified remote port/system. 


-1/0 for use default start addr/ 
specified start addr 

“Addr of remote station addr 

“Start addr to send if RO = 0 

“Addr of PDT 


“Status: SS$_NORMAL, SS$_INSFMEM, 
SS$_NOSUCHNOBE 
-Destroyed 


-Preserved 


Save SYSAP register 
PPD action routine 


Save input arguments 

Get a q9 buffer 

Branch if none 

Retreive two input arguments 
Issue command 

Restore register 

Bad port status 

Return to SYSAP 


Clear sreut arguments 
Clear PPD routine address 
Restore SYSAP's R3 

Set error status 

and return to SYSAP 


Save status 
Get rid of the buffer 
Restore status 


Page 44 


PAFPCALL SEP=1984 01:10:45 VAX/VMS Macro V04-00 
vou-o0t ; 4 LORIVER. SRCIPAFPCALL «MAR; 2 (26) | 


1 = 
- FPCSSTOP_VCS, SEND SHUTDOWN ON ALL VCS 18-SEP-19 4 01:15:46 


4 } 03 -SBTTL - FPCSSTOP_VCS, SEND SHUTDOWN ON ALL VCS | 

FB 1810 ;¢ | 

nb 19 3; FPCSSTOP_VCS is yore port specific. All we do here is call the port 

FB \§ ; dependent routine, CNFSSTOP_VCS which attempts to send a datagram 

FB 1815 ; to each known port. The datagram notifies the remote system that the 

re : 13 ; host is shutting down, so it can notify its SYSAPs promptly of the event. 

re } 1§ : Inputs: 

FB 18 ; R4 -PDT address | 
ae : y ; Outputs: 
+4 ! § : RO-R3 -Destroyed | 
SFB 1824: Other registers -Preserved 
a a 

bere : ? -ENABL LSB 

05¢6 3 FPCSSTOP_VCS:: 

FAO2' 30 OSFB 1 4 BSBW CNFSSTOP_VCS ; Call routine that executes function 
on Be 

OSFF 1 3 -DSABL LSB 
| 
| 
| 


Pp 
) 
A 
B 
8 
8 
B 
B 
C 
C 
C 
C 
C 
C 
C 
Cc 
Cc 
a 
C 
C 
C 
C 
C 
Cc 
C 
Cc 
C 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
¢ 
¢ 
¢ 


PAFPCALL 16=SEP=1984 01:10:45 VAX/VMS Macro v04-00 Pa 45 
vourbot RECEIVED PACKET ROUTINES 1 mitt 7 Bi 244 (DRIVER. SRCJPAFPCALL .MAR; 2 = (27) 
KET ROUTINES 
REC_DGREC, PROCESS RECEIVED 0G 


et 
WANS 
NO 
se 
72%) 
wow 
=—— 
= 
rr 
‘xz 
m 
o 
m 
-_ 
< 
m 
° 
_ 
vv 
> 
Aan 


oc 


+ 


FPCSREC_DGREC verifies the destination connection ID and checks that 
the connection has at least one datagram queued for receive. If the 
connection has no datagrams queued for receive, then the datagram is 
discarded to the free queue and not given to the SYSAP. Otherwise, 
the SYSAP's datagram input address is called. Upon return from the 


SYSAP, control is returned to the INTR module to get the next response. 


FF 
5 ee 
ls 
FF 1 
FF 1 re 
FF 184 
a ts 
SFF 184 
SFF 1 te 
are ee 
gre ! ‘} Inputs: 
SFE rt R2 “Addr of message buffer (user portion) 
arr } 29 RG “Addr of PDT 
A 1Egg | Outues: | 
SFF 1854 RG “Preserved 
SFF 1855 Other registers -Destroyed 
Bere 1 2$ 
Oste 1888 
zt 1329 ASSUME SYSAPS$C_DGREC EQ 0 
SE 1861 .ENABL LSB | 
StF 1888 FPCSREC_DGREC:: | 
0130 30 gare H+ ¢4 BSBW FPCSCHK_DCONID 3 a th destination CONID in 
3 eader | 
10 50 €9 $09 189 BLBC RO,208 : Branch if bad CONID 
50 D4 0605 1868 CLRL RO ; Set flag to show DGREC 
4C ASB? 044 1869 DECW DTSW_DGREC(R3) 3; Decrement DG receive count 
OA 18 060A 1870 BGEQ $ ; Branch if recv dg's available 
4C A3 88 60C 1871 INCW COT$W_DGREC(R3) 3; Restore correct count 
F9EE* 60F 1 % BSBW INTSINS DFREEQ ; Get rid of dg 
78 A 6 ole 187 INCL CDTS$L_DGDISCARD(R3) ; Step dg discard count | 
0 317 ! a 20S: RSB | 
74 AS D6 0616 1876 30S: INCL CDOTSL_DGRCVD(R3) 3; Step count of total bytes of 
0619 187 : application data received 
09 «(11 9 OP 137 BRB DGCOM ; Join common code 
ele 1880 .DSABL LSB 


P 
S 
] 
E 
E 
E 
E 
E 
E 
E 
E 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
f 
] 
] 
] 
] 
] 
] 


SEP=1984 01:10:45 VAX/VMS Macro VO 


PAFPCALL 16- ro v04-00 Pa 
vOs-00t = FPCSREC_SNDDG, PROCESS SENT DG 18-SEP-19 4 01:15:44 CORIVER.SRCJPAFPCALL.MAR;2 ” 


66 
(28) | 


618 1 g -SBTTL = FPCSREC_SNDDG, PROCESS SENT DG 
818 1884 | 
eg 
618 1885 ; FPCSREC_SNDDG verfies the source connection ID. If correct, RO is 
061B 1 § ; set to SYSAPS$C_DGSNT to indicate that the datagram is a sent DG 
zie : ; rather than a new received DG. The correct length is set in R1. 
618 1 : ; Inputs: 
618 1890 ; 
0618 1891 ; R2 “Addr of g9 buffer (user portion) 
061B 1892 ; RG “Addr of PDT 
61B 1893 ; 
618 1894 ; Outputs: 
61B 1895 ; 
goi8 1896 ; R4 -Preserved 
61B 1897 ; Other registers “Destroyed 
0618 1898 ; 
0618 1899 ;- 
0618 1900 
0618 1901 -ENABL LSB 
0618 1308 
0618 1905 FPCSREC_SNDDG:: 
061B 1904 | 
OOFB 30 0618 1905 BSBW FPCS$CHK_SCONID ; Verify sending connection ID 
1450 €9 O61E 1908 BLBC RO,10$ ; Branch if invalid | 
50 01 9A Bes, bat MOVZBL #SYSAP$C_DGSNT,RO ; Set flag to indicate DGSNT | 
0624 1909 DGCOM: 
0624 1910 
+ A3 0624 1911 SUBW3 #SCS$C_OVHD,- ; 4 yo data = DG length - 
51 FOA 0626 IDI¢ SCS$W_CENGTH(R2) .R1 ; SCS header size 
51 51 3C€ 0629 191 MOVZWL R1,R1 3; Expand to tonguers 
54 DD 062eC 1914 PUSHL R4 > Save R4(PDT) for REM_NEXT_RSP | 
04 83 16 Q62E 1915 aCDT$L_DGINPUT(R3) ; Call SYSAP to dispose of dg buffer 
54 8EDO 0631 12i8 POPL R4 ; Restore 
05 0634 191 RSB ; Return 
bese 1918 
F9CB' 31 0635 1919 108: BRW INTSINS_DFREEQ ; Return dg to free queue and 
0638 1920 RSB | 
0638 1921 -DSABL LSB 


Ss S080... SSS J QJ Sc _ 


c 3 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro v04-00 Page 47 
y0s~004 = FPCSREC_DATREC, PROCESS RECEIVED RETDA 18-86-1984 Oh: 48: 32 YORIVER. SREIPAFPCALL MAR: 2 . (29) | 
6 1923 -SBTTL = FPCSREC_DATREC, PROCESS RECEIVED RETDAT 
-SBTTL = FPCSREC_CNFREC, PROCESS RECEIVED RETCNF 


+ 


These routines perform the same steps. 


First, the CONID portien of the XCT_ID is verified and converted to 
a CDT address. The RSPID portion of the XCT_ID is converted to the 
response descriptor address and the CDRP address extracted from the 
RD. The RSPID and message buffer ere the CNFREC/DATREC are 
then deallocated. Final the context of the suspended SYSAP is 
restored and the SYSAP called back at the PC following the call to 
send/request data. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


OOOCQOCOCCOCCOCOCOOOOOCOOOOOCOOOOOOOOoOO 
PARALLEL AAA AA AA AAA A AA AAA A AA AAO 


1924 
1958 
185 
1989 
1930 
Ht 
1938 
1934 
HE 
13 ; Inputs: 
1939 R2 “Addr of message buffer (user portion) 
3 Ieee R4 “Addr of PDT 
35 1308 ; Outputs: 
38 1944: R4 -Preserved 
38 1945 ; Other registers -Destroyed 
38 Mb ; 
38 jock 
38 1993 -ENABL LSB 
Hs 133) FPCSREC_DATREC:: 
i 1988 FPCSREC_CNFREC:: | 
OOFE 30 Sees 1332 BSBW FPCSCHK_LCONID ; got erpngectten ID/CONID 
3: _and ge addr 
5A 50 €9 06 1957 BLBC RO,STALE_CDT ; Branch if stale CDT 
40 A 6 O63E 1958 INCW CDTSw_SEND(R3) ; Add implied credit of 1 
51 F4 A2 C 0641 1959 VZWLE SCSS$L_RSPID(R2),R1 ; Get RSPID index 
50 00000000'GF 0 0645 1960 MOVL G*SC So, ROT RO ; Get base of RD table 
51 6041 E 064C 1961 MOVAQ (RO)CR1)~R1 ; Get RD address 
06 Al 81 0856 1308 CMP ROSW_ SEQNUM(R1),- 3; Verif 
F6 Ag 653 196 SCS$C_RSPID+2(R2) > sequence number 
2 ie 0655 1964 BNEQ RO_SEG_ERR 3; Branch if bad sequence number 
55 61 0657 1965 MOVL RDSL_CBRP(R1) RS ; Get CDRP addr 
52 DD 065A 1298 PUSHL R ; Save volatile register 
5C 196 DEALLOC_RSPID ; Deallocate RSPID 
3 bER8 662 1968 POPL R ; Restore register 
F998" 66 3 BSBW INTSDEAL_MSG ; Deallocate msg buffer to 
68 1970 3; pool since it is always allocated 
68 1971 ; _ from poet - 
7E 33 7D 6 1376 mova R3,-(SP) ; Save CDT & PDT addr 
53 1005 7D 0668 197 MOVO CORPSL_FR3(R5).R3 : Restore SYSAP's R3,R4 
so 0lCOU ef 1974 MOVZWL #SS$_NORMAL,R ; Set status to success 
oc 85) 16 1975 JSB @CDRPSL_FPC(RS) > Call SYSAP_back 
53 Be 7D 7 1376 MOV ($P)+,R3 ; Restore COT & PDT addr 
1 11 0678 197 BRB CHK_CRWAIT ; Join common code in REC_MSGREC 
67A 1378 ; to start anyone waiting for 
67A 197 ; send credit, then go for next 


a —— 


PAFP L 16-SEP-1984 01:10:45 AX/VMS Macro v04-00 Page 
YOne504 - FPCSREC_CNFREC, PROCESS RECEIVED RETCN 18-86 5-1 882 tee :44 (CDRIVER.SR Re PAFPCALL MAR: 2 . 3 ) 
A 3 response 
eh : ? eD_SEO_ERR: “ 
7A (4 SeEBUSCHECE tee DEB_XCTER ; Optionally, bugcheck on this error 
52 0084 (4 § o8 1 SUBL SGHBRSZTR4) ,R2~ Back up arg pointer to start of buffer 
F968" 6 1985 BSBwW CRESCRE’ PB_MSG i Given msg, look up PB if any 
} 12 § BRw INTSCRASH_ poRt ; Crash the port & restart 
98 1988 STALE_COT: 
698 1989 
05 0698 1990 RSB ; ALL cleaned up, just return 
699 1991 
699 1992 -DSABL LSB 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro Vv04-00 Page 49 PA 
vOs-00t = FPCSREC_MSGREC, PROCESS RECEIVED MSG 10-SEP-1984 tee 744 (CDORIVER.SRCIJPAFPCALL.MAR; 2 ’ (30) Ta 

19 ¢ -SBTTL = FPCSREC_MSGREC, PROCESS RECEIVED MSG 
1996 ;+ 
1997 ; FPCSREC_MSGREC checks the SCS message type field. If the type code 
1338 3; is SCS$C_APPL_MSG, then proccess continues. Otherwise the message 
+44 ; is an SCS control message and routine SCSSREC_SCSMSG in called. 

0 3; For ip Pt pg messages, it checks that the destination connection 

§ ; ID is legal. If not, the message buffer is discarded (returned to 

3; the free queue) and processing ends. Otherwise, the connection credit 

4 ; bookkeeping is done and the SYSAP's message input address is called. 

5 ; The SYSAP is respons jake for disposing of the message buffer. Upon 

8S 3; return from the SYSAP, REC_MSGREC branches to REM_NEXT_RSP. 
+43 3; Inputs: 
010 ; R2 “Addr of message buffer (user portion) 
011 ; RG “Addr of PDT 
big : 
013 ; Outputs: 
014 ; 
ot? ; Ro -Preserved 
619 3 Other registers -Destroyed 
018 ;- 
019 
: Y -ENABL LSB 
8 ¢ FPCSREC_MSGREC:: 
024 CMPW SCS$W_MTYPE(R2),=- :; Is this an application 
TH #SCS$C_APPL_MSG 3 _message? 
026 BEQL 10$ 3; Branch if yes 
tH PUSHL R4 ; Save R4(PDT) for REM_NEXT_RSP 
028 BSBW SCSSREC_SCSMSG ; Message is SCS control- go handle 
029 POPL RG ; Restore 
5 ? RSB ; Get next response 
§ 10$: BSBW FPCSCHK_DCONID :; Verify destination CONID 

BLBC RO,20$ ; Branch if inva : 

034 DECW COTSW_REC(R3) ; Decrement send credit held 
035 ; by remote 
0 § ADOW SCS$W_CREDIT(R2),- 3; Add credit extended by remote to 
8 COTS$W_SEND(R3) 3; to send credit 

8 INCL COT$SL_MSGRCVD(R3) : Ince count of # appl msgs received 
039 SUBW3 «©#SCS$C_OVHD,- 
Bo SCS$W_CENGTH(R2) ,.R1 ; Set size of applicaton data 

41 MOVZWL R1,R1 3 or SYSAP 

$ mMOVa R3,-(SP) ; Save CDT & PDT address 

4 JSB @COTSL_MSGINPUT(R3) : Call SYSAP message input address 

rt: MOVa (SP)+,R3 ; Retreive CDOT & POT address 

28 CHK_CRWAIT: 

$8 TSTW Cp TOUSEN CRS) 3; Any send credit? 

4 BEQ 0$ ; Branch if not z 

50 SRESUME _FP - ; Else, resume next waiter, 


rca 


1 -§ 
- FPCSREC_MSGREC, PROCESS RECEIVED MSG 18-8Ep 


a 
; 


QEMP 
BRB CHK PURWAIT 


RSB 
-DSABL LSB 


acorst ne ee 


“4986 81:18:22 


AX/VMS v04-00 
DRIVER. SRE IPAFPCALL .MAR: 2 


prenca one if none. 


Check for more credit 


* i 


Pi 
v( 


1) 


co rgatt ak Se b 4 01:10:45 VAX/VMS Macro v04-00 Page 3] 
v04 = FPCSREC_SNDMSG, PROCESS SEND MSG 10-SEP-1984 01:15:44 (DRIVER. SRCJPAFPCALL.MAR;2 ( 
e: H -SBTTL - FPCSREC_SNDMSG, PROCESS SEND MSG 
E 6] ;+ 
6E 62 ; FPCSREC_SNDMSG simply calls FPCSDEALRGMSG to deallocate the sent 
6E 65 ; message. The deallocate takes care of flow control and — 
6E 64 ; deallocate the buffer to the free queue if the free queue is 
re; i : low, or to pool. 
St6 $3 ; Inputs: 
oe $3 : R2 “Addr of message buffer (user portion) 
rt oy ; RG “Addr of PDT 
GEG 076 ; Outputs: 
Deke $94 : RG -Preserved 
6€6 2075 ; Other registers “Destroyed 
ae 
06E6 2078 * 
06E6 2079 -ENABL LSB 
bees 44 
pees 1 FPCSREC_SNDMSG:: 
31 +10 Roce ORS 6SBB FPCSCHK_SCONID ; Verify source 
03 50 HY 06E bas BLBC RO,SC_SEQ_ERR 3: connect ID 
B5D 1 O6EB 5 BRW FPCSDEALRGMSG ; Deallocate buffer 
O6EE Bae 
sed +44 SC_SEQ_ERR: 
52 0084 C46 (C2 Q6E 089 SUBL PDTSL_MSGHDRSZ(R4),R2 ; Back up message addr to top 
Ger 44 ; _of buffer from user data 
F9OA' 30 O6F 91 BSBwW CNFSLKP_PB_MSG :; Given msg, look up PB, if any 
F907" 31 O6F6 b3¢ BRW INTSCRASH_PORT 
06F9 209 
06F9 94 -DSABL LSB 


PAFPCALL EP=19 1:10:45 VAX/VMS Macro v04-00 Page 
YOseo0t = FPCSREC_RDCNT, PROCESS RECEIVED RDCNT 18: iets 9 tee 744 (DRIVER. SRCJPAFPCALL.MAR;2 . (33) 
us eH -SBTTL = FPCSREC_RDCNT, PROCESS RECEIVED RDCNT 
6F 98 ; 
F 3 3° ; FPCSREC_ROCNT returns the received buffer of port counters to the 
F921 ? ; SYSAP that owns the port counters currently. If the SYSAP specified 
ors : : a release of the counters, then the counters busy flag is cleared. 
ore ! 5 : Inputs: 
6F9 2105 ; R2 “Addr of message buffer 
6F9 1 $ 3 R4 “Addr of PDT 
ore ' : PDTSL_CNTCDRP(R4) -CDRP holding suspended SYSAP context 
Fy 199 : Outputs: 
FO 2111: R4 “Preserved 
6F9 \16 ; Other registers -Destr ozee 
6F9 113; PDOTSW_FLAGS(R4) “If PDT M_CNTRLS is set then PDTSM_CNTRLS 
6F9 2114; and PDTSM_CNTBSY are both cleared” 
oers S116 
or 11? -ENABL LSB 
of 1%} FPCSREC_RDCNT:: 
01 €5 O6F9 2121 BBCC #PDTSV_CNTRLS ; Branch if no release of 
05 00CO C4 06FB 21 : PDT$W_FLAGS(R4) , 10$ : counters is pending 
01 AA bore 1 BICW ePDTER NTBSY ; Else this is a release -- 
00C0 C4 ayy ! : PDTSw_ FLAGS (R4) ; clear counters busy 
55 00D4 C4 0 704 1 $ 10$: MOVL PDTSL_CNTCDRP(R4) RS ; Get SYSAP's CDRP 
50 9} C 0709 21 MOVZWL #SS$_RORMAL RO 3 Set success status for SYSAP 
4 D O70C 21 $ PUSHL R4 : Save PDT addr 
53 105 D 070 1 MOVa CORPSL_FR3(R5),R 3: Get SYSAP'S saved R3, R4 
0C BS 16 O712 2130 JSB aCDRPSC_ Pactaes ; Call SYSAP back with results 
54 BEDO 071 131 POPL RG 3; Retreive PDT addr 
oa 8 toe 
0719 134 -DSABL LSB 


PAFPCALL 16-SEP-1984 01:10:45 VAX/VMS Macro v04-00 
YOseb0 MISC. ROUTINES 18-36 b= 38¢ Bye 82 DRIVER.SRCJ PAFPCALL MAR: 2 
1 -SBTTL MISC. ROUTINES 

-SBTTL = FPCSCHK_SCONID, CHECK SENDER CONID 
-SBTTL = FPCSCHK_DCONID, CHECK DESTINATION CONID 
-SBTTL = FPCSCHK_LCONID, CHECK CONID IN LCONID 


* PCSCHK _SCONID == Verifies the sender connection ID in the SCS 
header and returns the address of the CDT 
FPCSCHK_DCONID <= Verifies the destination gonness 08. ID in the SCS 
header and returns the address of the CDOT 
FPCSCHK_LCONID -- Verifies the connection ID in the CONID portion 
of an XCT_ID in a block xfer message. (First 
longvord of XCT_ID) 


The connection ID index (l.o. word) is extracted and compared 
with the maximum index number. If it exceeds the maximum index, 
return error. Else, compute the CDT address from the index. 
Check the sequence # in the CDOT. If they agree, return success. 
Else return error. 


dd 
WDOODOODOODOODOOOODODODOOOODOODOOOODOOOOOOOOOOOOO 
Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge 


FPCSCHK_DCONID: : 


Se hee fee te tee ie ee ie te ie De te de ee ee i i 


NRO OONOA NEW (OOO NAUE UN $9 OD NO UNE WN 0 OO NO UNE WH 0 ODN EW" 0 OONO 


OO 0909.09.09 0909 09 C9 0900 Sy NNDB DDD DDD DDS IE BS BS NA 


SOOSOOOOOCOOCOCOCOCOCOCOOCOOCOOOCOOOOOOCOC COSCO OCO OOOO OOOO OOOO OOOO OOOOOOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: Inputs: 
1 R2 “Addr of Bessoge/Catagren buffer 
: R4 “Addr of PDT 
; Outputs: 
1 RO -1/0 for success/fail 
1 R41 senerere ed 
1 R2 “Addr o memes (CHK_SCONID) 
1 Addr of msg/dg iff Success (CHK_D/LCONID) 
1 R3 “Addr of CDT if success 
; Other registers -Preserved 
1 
: -ENABL LSB 
: FPCSCHK_SCONID: 
FC A2 «= 3¢ 1 MOVZ2WL SCSS$L arc conge cna). »R1 =; Get source connection ID index 
53 06000000" 1 DO D 21 MOVL G*Scss ; Get addr of connx descriptor List 
FO B1 4 21 CMPW sé, CDL$W “aR cOaupxcR3) > Compare index with maximum 
1A 8 21 BGTRU BAb SCONTD : Branch if index is too big 
53 303 d0 A 1 MOVL (R3TCRII,R3 ; Turn index to CDT address 
18 a3 D1 i 1 CMPL  CDTS$L_LCONID(R3),- : ID in msg/dg matches ID in CDT? 
FCA 1 SCS$L~SRC_CONID(R2) ; 
3 12 ; 1 BNEQ BAD_STONIDB ; Branch if not 
50 01 8 1 MOVZWL #SS$_NORMAL ,RO ; Else success status 
0 3 : ROB 
3 186 FPCSCHK_LCONID: 
50 FO A2 00 9 21 MOVL SESSL_LCOMID(RZ) .RO ; Extract CONID from message 
06 = «©1721 4 : BRB 10 ; Join common code 
F 1 
F 1 


vaca 
50 FB A2 

53 00900000" gt 

mrt 

Pe 


50 1 


FS A2 


F896" 
0 
F891" 


50 


dO 


30 


—— 
“oO 
w 
_ 
Oo 
w 


Ww 
oww, 


PAPAL MII 
NUS 2 200 OD NIWo 


ANNAN 
> 


Oo < WOOO 


ROPORORY es 


MOVL 


BAD_CONID: 
CMP 


wnt 
o Oo 
oo ww 
2a @ 
an 
=z» @ 
- £ 


BAD_SCONID: 


ak St b 6 3: 
= FPCSCHK_LCONID, CHECK CONID IN LCONID 10-SEP-1984 01: 


SCSSL_DST_CONID(R2) ,RO 


RO,R1 
G*ScsscL_coL R3 
R1,CDL$W-MAXCONIDX(R3) 
BAb CONID 

(R3TCR1),R3 
COTSL_LCONID(R3) ,RO 
BAD_CONID 
#SSS_NORMAL ,RO 


SCSSW_MTYPE(R2) ,= 
#SCSSC_APPL_DG 


[NTSINS MFREE 
0$ 


~m 
Oo 
bad 


INTSINS_DFREEQ 


+ ame WERRSV_DEB_SCERR 
BRB 0$ 


-DSABL LSB 


1 
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Get destination connection ID 


Extract index 
Get addr of connx descriptor List 


; Compare index with maximum 
; Branch if index is too big 


Turn index to CDT add 


ress 
; ID in Say Se aenenes ID in CDT? 


Branch i 


; Else success status 


Return 


; Is this an application datagram? 


Branch if so 
Return message buffer to free queue 


; Join common exit 


Return dg buffer to free queue 


Set status to failure 
Return 


Optionally, bugcheck on this error 
To recover, go return error to caller 


<v 


vei 


51 


aesseeed 
00000000 ' GF 
51 51 04 


8 
00000000 ° GF s 


50 


51 
00000000 ° GF 


50. 6 
50 «1A AO 
500 SA ef 


E 
= 


aH 
51 
52. 


OA 


K 5 
1 =S 
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787 5 -SBTTL FPCSINITIAL, ee AT THIS LAYER 

-SBTTL = BUILD B 

3* 

; The buffer descriptor table is shared among . ports. If it does 

; not already exist, allocate and initialize it 

ASSUME CIBDTSL_WAITFL*#4 £0 CIBOTSL_WAITBL 

ASSUME CIBDTSL_WAITBL+4 €E0 CIBDTS$W_SIZE 

ASSUME CLBDTSWCSIZE+2 EQ CIBDTSB_TYPE 

ASSUME CIBDTSB_TYPE+ EQ CIBDT$B_SUBTYP 

ASSUME Fide nr thle EQ CIBDTSL_FREEBD 

ASSUME CIBDTSL_FREEBD+4 £0 CIBDTSL_MAXIDX 

ASSUME CIBDTSL_MAXIDX*8 £0 CIBDT$C_BDLIST 
-ENABL LSB 


DWMNFOOA SO NN 


SSNS 


40 
$) 
c§ FPCSINITIAL:: 
D5 45 TSTL G“SCS$GL_BDT i Got buffer descriptors already? 
12 8 $6 BNEQ ; Branch ° 
3C 8 8 4 MOVZWL G“SCS$GW_BDTCNT,R1 ; Get # of buffer descriptors 
3 9 48 PUSHL a : Save it 
8 9 49 ASHL ; Get # bytes of descriptors 
CO 079 50 ADDL scie Bptse LENGTH,R1 : + BDT header Length 
16 9 51 JSB G*EX TE SALONONPAGED 3; Allocate pool for descriptors 
£9 A 26 BLBC RO,50$ ; Branch if failure 
DD O7A 5 PUSHL aS os : Save addr of BDT 
dO 8 AA 54 MOVL )+ : Set BD wait queue 
DE AD 2255 MOVAL maine) (R2)4 ; listhead emptyp 
] 8 Bi 2 MOVW R1,(R2)+ ; Set structure size, 
80 B4 5 MOVW #<DYNSC _CI_BDTas + ites a | (R2)+ bor (over “and subtype 
D4 B9 58 CLRL (R2)+ ; Clear pte 
dO BB 59 MOVL 4(SP),(R2) : ‘st ’ tr to ePeate igters 
D7 BF 60 DECL (R2)+ : Max index = 
D4 07C1 61 CLRL (R2)+ ; Clear reserved longwd 
DO 07C3 ¢ MOVL R2,G*SCS$GL_BDT : Save addr in system wide data base 
8ED CA 6 POPL R1 ; Get BDT address again 
D CD 64 MOVL G*SCS$GL_CDL,RO ; Get addr of connx descriptor List 
0 0704 65 MOVL (RO) ,RO : and addr of first CDT. 
C 0707 06 MOVZWL CDTSL_LCONID+2(RO) ,RO : Get that CDT’ s Soaannel number 
708 6 XORB2 #*X5SA,RO ; Make it uniqu 
D 7DF o8 TSTL st) : Get # bel ter "leccrtoters 
1 re 3 BEQL 30$ : Branch if zero 
7E 71 3 
7E 72 ; Loop to initialize buffer Tse’ PREEBDo Links all BD's onto the 
7E 73; free List rooted at CIBDTSL_FREEBD, marks each BD invalid, and 
a : initializes the BD sequence number 
7E s 
B4 O7E 77 20$: CLRW c BDSW EL AGS (Re) ; Clear valid bit 
B 7€ 7 MOVW -CIBBDSW_KEY(R2) 3; Init sequence # 
D 7E9 7 MOVL *CIBDSL~ WLINK(R1) ; Link this BD to previous 
D 7ED 0 MOVL 4 *R ; Set this BD to previous 
DE O7F0 1 MOVAL CIBDSC_LENGTH(R2).R2 ; Step to next BD 


cach 


- BUILD BDT 
FS 


2 


Occ CDaDCD CD CD0D 


—OOONAUE UP 


use Ww 
oo 


oO 
ad 
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(SP) ,20$ ; Branch if more BD's to do 

CIBDSL_LINK(R1) :; Zero last fwd Link 
)+ 3; Clear stack 

#SS$_NORMAL ,RO ; Set for succes 

LSB 
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COR 
CDTSL 
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Symbol table 


DYNSC C1 _BDT 
ERRSBOGCA 


PPPPAPPAPAPASA SAAD ADD AADA DSA AD DDD S| 
ee oncnonaareee ie oe 
‘ S33 


ESESESESES ES TT 


vv 
avaverererererrrereeeeee ese see 


CSSENDMSG 
CSSENDRGDG 
CSSNDCNTMSG 
C$STOP_VCS 


ee ee ee ee A nn on no ere 


ZzzvvvvvvUU 
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T OC_MSG 
NTSCRASH PORT 
INTSDEAL”RSG 
INTSDF Q2POOL 
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Symbol table 18-Sep-1986 BF 8522 DRIVER. SRE CIP AFPCALL.MAR;2 (2 a 

SCSSL_SND_BOFF = 00000000 | 

SCSSL_SND_NA = FFFFFFFC 

SCSSL_SRC_CONID = 4add ddd 

SCSSL_XCT_LEN = FFFFFFF 

SCSSMAP_VASSTS eeeneree 8 X 1 

SCSSREC_SCSMSG eeneeeee xX 1 

SCSSREQ_ SCSSEND eerereee =X 1 

SCSSRESOMEWAITR tereeree = =X = 0] 

SCS$T_DST_PROC = 444 

SCS$T_SRC~ PROC = 00000014 

SCS$W_CREDIT = FEPFEEES 

SCS$W_LENGTH = FRFFFFF 

SCS$W_MTYPE = FFFFFFFS 

SCSSERD 00000080 R 01 | 

SC_SEQ_ ERR 44443 R 01 

ss$_ T = 0000002C 

$$$_DGQINCOMP = 0000 7? 

SSS_ILLCDTST = 00002154 

SS$_ILLIOFUNC = QO00000F4 

SS$_INSFMEM = 44 4B 

SS$_INTERLOCK = 44443 f 

SS$_ NORMAL = 0000000 

STACE_COT 4 44 43 R 01 

STATE_ERR 00000574 R 01 | 

STATE_ERR_R3S 44 4 Fae R 01 

SUSP_CONCALL 0000568 R 01 

SYSAPSC_DGRE = 00000000 

SYSAPS$C_DGSNT = 00000001 

SYSAPSC _DISPRET = 00000001 

WAIT_BD Q000040E R 01 | 
§uneeneueswesewwe + 
: ; Psect synopsis ! 
eee rte ww we ew ew ee Pe NM 

PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 ( 0.) OO ¢ 0.) NOPIC USR CON ABS LCL on rH NOEXE NORD ~— NOVEC BYTE 
$$$115_DRIVER 00000800 ( 2048.) 01 ¢ 1.) NOPIC USR CON REL LCL N EXE RD T NOVEC Lows 
SABS$ 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD URT NOVEC BYTE | 


wee ee ee em eee eee ee ee eee eK} 


Phase Page faults CPU Time Elapsed Time 
Initialization 30 00 +00: 00.08 0:00:00.97 
zounane processing 109 0:00:00.45 3: :02.57 
s eae " 431 }: De 4 :00: r 8 
syabol able sor :00:01. 7:00:04. 
389 :00: 3:68 : 0:1 . 2 
pee table output 10 :00:00.1 :00:00. 
Psect synopsis output 8 4 :00:00.01 
Cross-reference output ¥ 8 :00: 09 
Assembler run totals 971 1 7:01:04, 
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The She york ing » * Limit yes 2190 pages. 
— oa | 195 pages) of virtual memory were used to buffer_the intermediate 5gee. 
ae were pages of symbol table a ducing 88 to hold 1356 non-local " local symbols. 
¢ 91 source 6? jpeg were read in Pass producin object records in Pass 2. 
pages of virtual memory were used to define 4 7 macros. 


tam ren ecm omer cere een ene c ew mn + 


! Macro Library statistics ! 


mower nee ern erm ocemn eeececeeee > 


Macro Library name Macros defined | 

geenua nob: xt a 24 ne CE -MLB; 1 7 

1 16 

Bag FU ASE CSYSLTBISTARLET. MLB; 2 6 
+32558 (all libraries) 29 


1486 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:PAFPCALL/OBJ=OBJ$:PAFPCALL MSRC$:PAFPCALL/UPDATE=(ENHS$:PAFPCALL) +EXECML$/LIB+LIB$:PALIB.MLB/LIB 
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